home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 June / Chip Haziran 2000.iso / prog / share / 28 / 28.exe / data1.cab / Program_Files / scriptlib3.sbl < prev    next >
Microsoft Compound Document  |  1998-10-05  |  188.5 KB
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: Microsoft Compound Document (archive/msCompound).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert Word Document (document/wordDoc) magic Supported
40% dexvert Microsoft Compound Document (archive/msCompound) magic Supported
100% file Composite Document File V2 Document, Cannot read section info default
99% file OLE 2 Compound Document, v3.62, SecID 0x1, 3 FAT sectors, Mini FAT start sector 0x2, 15 Mini FAT sectors : UNKNOWN with names ROOTS ROOT0 DATA ��%02 ! A default
98% file data default
100% TrID Generic OLE2 / Multistream Compound default
100% siegfried fmt/111 OLE2 Compound Document Format default (weak)
100% lsar CFBF default
100% gt2 POIFS Dokument (Winword, Excel, Starwriter, ...) default (weak)
100% detectItEasy Archive: Microsoft Compound(MS Office 97-2003 or MSI etc.) default
100% xdgMime application/x-ole-storage default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| d0 cf 11 e0 a1 b1 1a e1 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 3e 00 03 00 fe ff 09 00 |........|>.......|
|00000020| 06 00 00 00 00 00 00 00 | 00 00 00 00 03 00 00 00 |........|........|
|00000030| 01 00 00 00 00 00 00 00 | 00 10 00 00 02 00 00 00 |........|........|
|00000040| 0f 00 00 00 fe ff ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 7a 00 00 00 00 01 00 00 | ff ff ff ff ff ff ff ff |z.......|........|
|00000060| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000070| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000080| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000090| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000000a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000000b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000000c0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000000d0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000000e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000000f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000100| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000110| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000120| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000130| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000140| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000150| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000160| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000170| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000180| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000190| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001c0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001d0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000200| fd ff ff ff 0a 00 00 00 | 14 00 00 00 04 00 00 00 |........|........|
|00000210| 05 00 00 00 06 00 00 00 | 07 00 00 00 08 00 00 00 |........|........|
|00000220| 09 00 00 00 0b 00 00 00 | 0f 00 00 00 0c 00 00 00 |........|........|
|00000230| 0d 00 00 00 0e 00 00 00 | 10 00 00 00 17 00 00 00 |........|........|
|00000240| 11 00 00 00 12 00 00 00 | 13 00 00 00 15 00 00 00 |........|........|
|00000250| 27 00 00 00 16 00 00 00 | 18 00 00 00 1d 00 00 00 |'.......|........|
|00000260| 19 00 00 00 1a 00 00 00 | 1b 00 00 00 1c 00 00 00 |........|........|
|00000270| 1e 00 00 00 21 00 00 00 | 1f 00 00 00 20 00 00 00 |....!...|.... ...|
|00000280| 22 00 00 00 26 00 00 00 | 23 00 00 00 24 00 00 00 |"...&...|#...$...|
|00000290| 25 00 00 00 28 00 00 00 | 2e 00 00 00 3a 00 00 00 |%...(...|....:...|
|000002a0| 29 00 00 00 2a 00 00 00 | 2b 00 00 00 2c 00 00 00 |)...*...|+...,...|
|000002b0| 2d 00 00 00 2f 00 00 00 | 33 00 00 00 30 00 00 00 |-.../...|3...0...|
|000002c0| 31 00 00 00 32 00 00 00 | 34 00 00 00 39 00 00 00 |1...2...|4...9...|
|000002d0| 35 00 00 00 36 00 00 00 | 37 00 00 00 38 00 00 00 |5...6...|7...8...|
|000002e0| 3b 00 00 00 40 00 00 00 | 6f 00 00 00 3c 00 00 00 |;...@...|o...<...|
|000002f0| 3d 00 00 00 3e 00 00 00 | 3f 00 00 00 51 00 00 00 |=...>...|?...Q...|
|00000300| 62 00 00 00 42 00 00 00 | 43 00 00 00 44 00 00 00 |b...B...|C...D...|
|00000310| 45 00 00 00 46 00 00 00 | 47 00 00 00 48 00 00 00 |E...F...|G...H...|
|00000320| 49 00 00 00 4a 00 00 00 | 4b 00 00 00 4c 00 00 00 |I...J...|K...L...|
|00000330| 4d 00 00 00 4e 00 00 00 | 4f 00 00 00 50 00 00 00 |M...N...|O...P...|
|00000340| fe ff ff ff 61 00 00 00 | 53 00 00 00 54 00 00 00 |....a...|S...T...|
|00000350| 55 00 00 00 56 00 00 00 | 57 00 00 00 58 00 00 00 |U...V...|W...X...|
|00000360| 59 00 00 00 5a 00 00 00 | 5b 00 00 00 5c 00 00 00 |Y...Z...|[...\...|
|00000370| 5d 00 00 00 5e 00 00 00 | 5f 00 00 00 60 00 00 00 |]...^...|_...`...|
|00000380| fe ff ff ff 63 00 00 00 | 6b 00 00 00 64 00 00 00 |....c...|k...d...|
|00000390| 65 00 00 00 66 00 00 00 | 67 00 00 00 68 00 00 00 |e...f...|g...h...|
|000003a0| 69 00 00 00 6a 00 00 00 | 6c 00 00 00 76 00 00 00 |i...j...|l...v...|
|000003b0| 6d 00 00 00 6e 00 00 00 | 70 00 00 00 8d 00 00 00 |m...n...|p.......|
|000003c0| 71 00 00 00 72 00 00 00 | 73 00 00 00 74 00 00 00 |q...r...|s...t...|
|000003d0| 75 00 00 00 77 00 00 00 | 79 00 00 00 78 00 00 00 |u...w...|y...x...|
|000003e0| 85 00 00 00 88 00 00 00 | fd ff ff ff 7c 00 00 00 |........|....|...|
|000003f0| 7d 00 00 00 7e 00 00 00 | 7f 00 00 00 80 00 00 00 |}...~...|........|
|00000400| 52 00 6f 00 6f 00 74 00 | 20 00 45 00 6e 00 74 00 |R.o.o.t.| .E.n.t.|
|00000410| 72 00 79 00 00 00 00 00 | 00 5b 00 00 08 5b 00 00 |r.y.....|.[...[..|
|00000420| 80 03 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 16 00 05 00 ff ff ff ff | ff ff ff ff 3e 00 00 00 |........|....>...|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 01 00 00 00 | 80 03 00 00 90 1c cc ca |........|........|
|00000470| 9b ed bd 01 03 00 00 00 | 80 c0 01 00 a8 04 00 00 |........|........|
|00000480| 52 00 4f 00 4f 00 54 00 | 53 00 00 00 fe ff ff ff |R.O.O.T.|S.......|
|00000490| ad 04 00 00 ae 04 00 00 | af 04 00 00 b0 04 00 00 |........|........|
|000004a0| 0a 00 02 01 ff ff ff ff | ff ff ff ff 00 00 ff ff |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 c8 5f 00 00 |........|....._..|
|000004c0| 0c 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000004d0| 00 00 00 00 50 62 44 66 | 00 00 00 00 28 7c 00 00 |....PbDf|....(|..|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 04 00 00 00 00 00 00 00 |........|........|
|00000500| 52 00 4f 00 4f 00 54 00 | 30 00 00 00 86 38 06 00 |R.O.O.T.|0....8..|
|00000510| 50 00 00 00 01 00 00 00 | 00 7d 00 00 00 00 00 00 |P.......|.}......|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000530| 08 7d 00 00 00 00 00 00 | 00 00 00 00 a0 77 bc 77 |.}......|.....w.w|
|00000540| 0c 00 01 01 ff ff ff ff | ff ff ff ff 03 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 9d 7c ca | 9b ed bd 01 00 9d 7c ca |......|.|......|.|
|00000570| 9b ed bd 01 5c 00 50 00 | 72 00 6f 00 67 00 72 00 |....\.P.|r.o.g.r.|
|00000580| 44 00 41 00 54 00 41 00 | 00 00 6c 00 65 00 73 00 |D.A.T.A.|..l.e.s.|
|00000590| 5c 00 4e 00 65 00 74 00 | 4f 00 62 00 6a 00 65 00 |\.N.e.t.|O.b.j.e.|
|000005a0| 63 00 74 00 73 00 20 00 | 53 00 63 00 72 00 69 00 |c.t.s. .|S.c.r.i.|
|000005b0| 70 00 74 00 42 00 75 00 | 69 00 6c 00 64 00 65 00 |p.t.B.u.|i.l.d.e.|
|000005c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000005d0| 6c 00 69 00 62 00 33 00 | 2e 00 73 00 62 00 6c 00 |l.i.b.3.|..s.b.l.|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 01 00 00 00 | 4a 0c 00 00 00 00 00 00 |........|J.......|
|00000600| fe ff ff ff 02 00 00 00 | 03 00 00 00 04 00 00 00 |........|........|
|00000610| 05 00 00 00 06 00 00 00 | 07 00 00 00 08 00 00 00 |........|........|
|00000620| 09 00 00 00 0a 00 00 00 | 0b 00 00 00 0c 00 00 00 |........|........|
|00000630| 0d 00 00 00 0e 00 00 00 | 0f 00 00 00 10 00 00 00 |........|........|
|00000640| 11 00 00 00 12 00 00 00 | 13 00 00 00 14 00 00 00 |........|........|
|00000650| 15 00 00 00 16 00 00 00 | 17 00 00 00 18 00 00 00 |........|........|
|00000660| 19 00 00 00 1a 00 00 00 | 1b 00 00 00 1c 00 00 00 |........|........|
|00000670| 1d 00 00 00 1e 00 00 00 | 1f 00 00 00 20 00 00 00 |........|.... ...|
|00000680| 21 00 00 00 22 00 00 00 | 23 00 00 00 24 00 00 00 |!..."...|#...$...|
|00000690| 25 00 00 00 26 00 00 00 | 27 00 00 00 28 00 00 00 |%...&...|'...(...|
|000006a0| 29 00 00 00 2a 00 00 00 | 2b 00 00 00 2c 00 00 00 |)...*...|+...,...|
|000006b0| 2d 00 00 00 2e 00 00 00 | 2f 00 00 00 30 00 00 00 |-.......|/...0...|
|000006c0| 31 00 00 00 32 00 00 00 | fe ff ff ff 34 00 00 00 |1...2...|....4...|
|000006d0| 35 00 00 00 36 00 00 00 | 37 00 00 00 38 00 00 00 |5...6...|7...8...|
|000006e0| 39 00 00 00 3a 00 00 00 | 3b 00 00 00 3c 00 00 00 |9...:...|;...<...|
|000006f0| 3d 00 00 00 3e 00 00 00 | 3f 00 00 00 40 00 00 00 |=...>...|?...@...|
|00000700| 41 00 00 00 42 00 00 00 | 43 00 00 00 44 00 00 00 |A...B...|C...D...|
|00000710| 45 00 00 00 46 00 00 00 | 47 00 00 00 48 00 00 00 |E...F...|G...H...|
|00000720| 49 00 00 00 4a 00 00 00 | fe ff ff ff 4c 00 00 00 |I...J...|....L...|
|00000730| 4d 00 00 00 4e 00 00 00 | 4f 00 00 00 50 00 00 00 |M...N...|O...P...|
|00000740| 51 00 00 00 52 00 00 00 | 53 00 00 00 54 00 00 00 |Q...R...|S...T...|
|00000750| 55 00 00 00 fe ff ff ff | 57 00 00 00 58 00 00 00 |U.......|W...X...|
|00000760| 59 00 00 00 5a 00 00 00 | 5b 00 00 00 5c 00 00 00 |Y...Z...|[...\...|
|00000770| 5d 00 00 00 5e 00 00 00 | 5f 00 00 00 60 00 00 00 |]...^...|_...`...|
|00000780| 61 00 00 00 62 00 00 00 | 63 00 00 00 64 00 00 00 |a...b...|c...d...|
|00000790| 65 00 00 00 66 00 00 00 | 67 00 00 00 68 00 00 00 |e...f...|g...h...|
|000007a0| 69 00 00 00 6a 00 00 00 | 6b 00 00 00 6c 00 00 00 |i...j...|k...l...|
|000007b0| 6d 00 00 00 6e 00 00 00 | 6f 00 00 00 fe ff ff ff |m...n...|o.......|
|000007c0| 71 00 00 00 72 00 00 00 | 73 00 00 00 74 00 00 00 |q...r...|s...t...|
|000007d0| 75 00 00 00 76 00 00 00 | 77 00 00 00 78 00 00 00 |u...v...|w...x...|
|000007e0| 79 00 00 00 7a 00 00 00 | 7b 00 00 00 7c 00 00 00 |y...z...|{...|...|
|000007f0| 7d 00 00 00 7e 00 00 00 | 7f 00 00 00 80 00 00 00 |}...~...|........|
|00000800| 4f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |O.......|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 08 00 00 00 44 62 53 65 | 6c 65 63 74 08 00 00 00 |....DbSe|lect....|
|00000850| 44 62 53 65 6c 65 63 74 | 03 00 00 00 41 53 50 2d |DbSelect|....ASP-|
|00000860| 00 00 00 44 69 73 70 6c | 61 79 73 20 72 65 73 75 |...Displ|ays resu|
|00000870| 6c 74 20 73 65 74 20 69 | 6e 20 61 20 73 65 6c 65 |lt set i|n a sele|
|00000880| 63 74 20 66 6f 72 6d 20 | 65 6c 65 6d 65 6e 74 20 |ct form |element |
|00000890| d2 0b 00 00 27 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |....'===|========|
|000008a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008e0| 0d 0a 27 20 50 52 4f 43 | 45 44 55 52 45 3a 09 44 |..' PROC|EDURE:.D|
|000008f0| 42 53 65 6c 65 63 74 0d | 0a 0d 0a 27 20 49 4e 50 |BSelect.|...' INP|
|00000900| 55 54 3a 09 09 09 6e 61 | 6d 65 20 28 73 74 72 69 |UT:...na|me (stri|
|00000910| 6e 67 29 09 09 09 09 09 | 2d 20 6e 61 6d 65 20 6f |ng).....|- name o|
|00000920| 66 20 74 68 65 20 64 72 | 6f 70 20 64 6f 77 6e 20 |f the dr|op down |
|00000930| 6c 69 73 74 20 66 6f 72 | 6d 0d 0a 27 09 09 09 09 |list for|m..'....|
|00000940| 09 09 09 09 09 09 09 09 | 09 09 20 20 65 6c 65 6d |........|..  elem|
|00000950| 65 6e 74 0d 0a 27 09 09 | 09 09 09 73 71 6c 20 28 |ent..'..|...sql (|
|00000960| 73 74 72 69 6e 67 29 09 | 09 09 09 09 2d 20 73 71 |string).|....- sq|
|00000970| 6c 20 73 74 61 74 65 6d | 65 6e 74 20 75 73 65 64 |l statem|ent used|
|00000980| 20 74 6f 20 6f 70 65 6e | 20 74 68 65 0d 0a 27 09 | to open| the..'.|
|00000990| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 20 20 72 |........|.....  r|
|000009a0| 65 63 6f 72 64 73 65 74 | 0d 0a 27 09 09 09 09 09 |ecordset|..'.....|
|000009b0| 76 61 6c 66 69 65 6c 64 | 09 28 73 74 72 69 6e 67 |valfield|.(string|
|000009c0| 29 09 09 09 09 2d 20 6e | 61 6d 65 20 6f 66 20 74 |)....- n|ame of t|
|000009d0| 68 65 20 66 69 65 6c 64 | 20 77 68 6f 73 65 20 76 |he field| whose v|
|000009e0| 61 6c 75 65 20 77 69 6c | 6c 0d 0a 27 09 09 09 09 |alue wil|l..'....|
|000009f0| 09 09 09 09 09 09 09 09 | 09 09 20 20 61 6c 73 6f |........|..  also|
|00000a00| 20 62 65 20 74 68 65 20 | 6f 70 74 69 6f 6e 20 76 | be the |option v|
|00000a10| 61 6c 75 65 0d 0a 27 09 | 09 09 09 09 74 78 74 66 |alue..'.|....txtf|
|00000a20| 69 65 6c 64 09 28 73 74 | 72 69 6e 67 29 09 09 09 |ield.(st|ring)...|
|00000a30| 09 2d 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 66 |.- name |of the f|
|00000a40| 69 65 6c 64 20 77 68 6f | 73 65 20 76 61 6c 75 65 |ield who|se value|
|00000a50| 20 77 69 6c 6c 0d 0a 27 | 09 09 09 09 09 09 09 09 | will..'|........|
|00000a60| 09 09 09 09 09 09 20 20 | 62 65 20 64 69 73 70 6c |......  |be displ|
|00000a70| 61 79 65 64 20 74 6f 20 | 74 68 65 20 75 73 65 72 |ayed to |the user|
|00000a80| 0d 0a 27 09 09 09 09 09 | 73 65 6c 65 63 74 65 64 |..'.....|selected|
|00000a90| 76 61 6c 20 28 73 74 69 | 72 6e 67 2f 61 72 72 61 |val (sti|rng/arra|
|00000aa0| 79 29 09 2d 20 74 68 65 | 20 76 61 6c 75 65 20 6f |y).- the| value o|
|00000ab0| 66 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 20 6f |f the se|lected o|
|00000ac0| 70 74 69 6f 6e 0d 0a 27 | 09 09 09 09 09 09 09 09 |ption..'|........|
|00000ad0| 09 09 09 09 09 09 20 20 | 6f 72 20 6f 70 74 69 6f |......  |or optio|
|00000ae0| 6e 73 20 2d 2d 20 69 66 | 20 74 68 65 20 64 72 6f |ns -- if| the dro|
|00000af0| 70 20 64 6f 77 6e 0d 0a | 27 20 20 20 20 20 20 20 |p down..|'       |
|00000b00| 20 20 20 20 20 20 09 09 | 09 09 09 09 09 09 09 20 |      ..|....... |
|00000b10| 20 20 20 20 6c 69 73 74 | 20 69 73 20 61 20 6d 75 |    list| is a mu|
|00000b20| 6c 74 69 70 6c 65 20 73 | 65 6c 65 63 74 20 6c 69 |ltiple s|elect li|
|00000b30| 73 74 0d 0a 27 09 09 09 | 09 09 09 09 09 09 09 09 |st..'...|........|
|00000b40| 09 09 09 20 20 74 68 65 | 6e 20 79 6f 75 20 6d 75 |...  the|n you mu|
|00000b50| 73 74 20 70 61 73 73 20 | 61 6e 20 61 72 72 61 79 |st pass |an array|
|00000b60| 20 6f 72 0d 0a 27 09 09 | 09 09 09 09 09 09 09 09 | or..'..|........|
|00000b70| 09 09 09 09 20 20 61 6e | 20 65 6d 70 74 79 20 73 |....  an| empty s|
|00000b80| 74 72 69 6e 67 0d 0a 27 | 09 09 09 09 09 73 69 7a |tring..'|.....siz|
|00000b90| 65 20 28 6e 75 6d 62 65 | 72 29 09 09 09 09 09 2d |e (numbe|r).....-|
|00000ba0| 20 73 69 7a 65 20 6f 66 | 20 74 68 65 20 66 6f 72 | size of| the for|
|00000bb0| 6d 20 65 6c 65 6d 65 6e | 74 0d 0a 27 09 09 09 09 |m elemen|t..'....|
|00000bc0| 09 6d 75 6c 74 69 70 6c | 65 09 28 62 6f 6f 6c 65 |.multipl|e.(boole|
|00000bd0| 61 6e 29 09 09 09 2d 20 | 74 72 75 65 20 69 66 20 |an)...- |true if |
|00000be0| 74 68 65 20 64 72 6f 70 | 20 64 6f 77 6e 20 6c 69 |the drop| down li|
|00000bf0| 73 74 20 69 73 20 0d 0a | 27 09 09 09 09 09 09 09 |st is ..|'.......|
|00000c00| 09 09 09 09 09 09 09 20 | 20 61 20 6d 75 6c 74 69 |....... | a multi|
|00000c10| 70 6c 65 20 73 65 6c 65 | 63 74 20 6c 69 73 74 3b |ple sele|ct list;|
|00000c20| 20 66 61 6c 73 65 0d 0a | 27 09 09 09 09 09 09 09 | false..|'.......|
|00000c30| 09 09 09 09 09 09 09 20 | 20 6f 74 68 65 72 77 69 |....... | otherwi|
|00000c40| 73 65 0d 0a 27 09 09 09 | 09 09 61 64 64 76 61 6c |se..'...|..addval|
|00000c50| 20 28 73 74 72 69 6e 67 | 29 09 09 09 09 2d 20 61 | (string|)....- a|
|00000c60| 64 64 69 74 69 6f 6e 61 | 6c 20 76 61 6c 75 65 20 |dditiona|l value |
|00000c70| 74 6f 20 61 64 64 20 74 | 6f 20 74 68 65 20 6c 69 |to add t|o the li|
|00000c80| 73 74 0d 0a 27 09 09 09 | 09 09 20 20 20 20 20 09 |st..'...|..     .|
|00000c90| 09 09 09 09 09 09 09 2a | 2a 20 74 68 69 73 20 76 |.......*|* this v|
|00000ca0| 61 6c 75 65 20 69 73 20 | 61 6c 77 61 79 73 20 61 |alue is |always a|
|00000cb0| 64 64 65 64 20 61 73 20 | 74 68 65 0d 0a 27 09 09 |dded as |the..'..|
|00000cc0| 09 09 09 09 09 09 09 09 | 09 09 09 09 20 20 20 66 |........|....   f|
|00000cd0| 69 72 73 74 20 76 61 6c | 75 65 20 69 6e 20 74 68 |irst val|ue in th|
|00000ce0| 65 20 6c 69 73 74 20 2a | 2a 0d 0a 27 09 09 09 09 |e list *|*..'....|
|00000cf0| 09 61 64 64 74 78 74 20 | 28 73 74 72 69 6e 67 29 |.addtxt |(string)|
|00000d00| 09 09 09 09 2d 20 74 65 | 78 74 20 74 6f 20 64 69 |....- te|xt to di|
|00000d10| 73 70 6c 61 79 20 74 6f | 20 74 68 65 20 75 73 65 |splay to| the use|
|00000d20| 72 0d 0a 27 09 09 09 09 | 09 09 09 09 09 09 09 09 |r..'....|........|
|00000d30| 09 09 20 20 61 73 73 6f | 63 69 61 74 65 64 20 77 |..  asso|ciated w|
|00000d40| 69 74 68 20 74 68 65 20 | 61 64 64 69 74 69 6f 6e |ith the |addition|
|00000d50| 61 6c 20 76 61 6c 75 65 | 0d 0a 27 20 44 45 53 43 |al value|..' DESC|
|00000d60| 3a 09 09 09 54 68 69 73 | 20 70 72 6f 63 65 64 75 |:...This| procedu|
|00000d70| 72 65 20 63 72 65 61 74 | 65 73 20 61 20 64 72 6f |re creat|es a dro|
|00000d80| 70 20 64 6f 77 6e 20 6c | 69 73 74 20 63 6f 6e 74 |p down l|ist cont|
|00000d90| 61 69 6e 69 6e 67 20 76 | 61 6c 75 65 73 0d 0a 27 |aining v|alues..'|
|00000da0| 09 09 09 09 09 66 72 6f | 6d 20 61 20 64 61 74 61 |.....fro|m a data|
|00000db0| 62 61 73 65 20 74 61 62 | 6c 65 2f 71 75 65 72 79 |base tab|le/query|
|00000dc0| 20 70 6c 75 73 20 6f 6e | 65 20 61 64 64 69 74 69 | plus on|e additi|
|00000dd0| 6f 6e 61 6c 20 76 61 6c | 75 65 0d 0a 27 3d 3d 3d |onal val|ue..'===|
|00000de0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000df0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e20| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 53 75 62 20 44 42 |========|..Sub DB|
|00000e30| 53 65 6c 65 63 74 28 64 | 62 2c 20 6e 61 6d 65 2c |Select(d|b, name,|
|00000e40| 20 73 71 6c 2c 20 76 61 | 6c 66 69 65 6c 64 2c 20 | sql, va|lfield, |
|00000e50| 74 78 74 66 69 65 6c 64 | 2c 20 73 65 6c 65 63 74 |txtfield|, select|
|00000e60| 65 64 76 61 6c 2c 20 73 | 69 7a 65 2c 20 6d 75 6c |edval, s|ize, mul|
|00000e70| 74 69 70 6c 65 2c 20 61 | 64 64 76 61 6c 2c 20 61 |tiple, a|ddval, a|
|00000e80| 64 64 74 78 74 29 0d 0a | 09 44 69 6d 20 73 74 72 |ddtxt)..|.Dim str|
|00000e90| 2c 20 72 73 2c 20 6c 6f | 77 2c 20 75 70 2c 20 69 |, rs, lo|w, up, i|
|00000ea0| 0d 0a 09 09 73 74 72 20 | 3d 20 22 3c 73 65 6c 65 |....str |= "<sele|
|00000eb0| 63 74 20 6e 61 6d 65 3d | 22 20 26 20 43 68 72 28 |ct name=|" & Chr(|
|00000ec0| 33 34 29 20 26 20 6e 61 | 6d 65 20 26 20 43 68 72 |34) & na|me & Chr|
|00000ed0| 28 33 34 29 0d 0a 09 49 | 66 20 6d 75 6c 74 69 70 |(34)...I|f multip|
|00000ee0| 6c 65 20 3d 20 54 72 75 | 65 20 54 68 65 6e 0d 0a |le = Tru|e Then..|
|00000ef0| 09 09 73 74 72 20 3d 20 | 73 74 72 20 26 20 22 20 |..str = |str & " |
|00000f00| 6d 75 6c 74 69 70 6c 65 | 22 0d 0a 09 09 49 66 20 |multiple|"....If |
|00000f10| 4e 6f 74 20 49 73 4e 75 | 6c 6c 28 73 65 6c 65 63 |Not IsNu|ll(selec|
|00000f20| 74 65 64 76 61 6c 29 20 | 54 68 65 6e 0d 0a 09 09 |tedval) |Then....|
|00000f30| 09 6c 6f 77 20 3d 20 4c | 42 6f 75 6e 64 28 73 65 |.low = L|Bound(se|
|00000f40| 6c 65 63 74 65 64 76 61 | 6c 29 0d 0a 09 09 09 75 |lectedva|l).....u|
|00000f50| 70 20 3d 20 55 42 6f 75 | 6e 64 28 73 65 6c 65 63 |p = UBou|nd(selec|
|00000f60| 74 65 64 76 61 6c 29 0d | 0a 09 09 45 6e 64 20 49 |tedval).|...End I|
|00000f70| 66 0d 0a 09 45 6e 64 20 | 49 66 0d 0a 09 73 74 72 |f...End |If...str|
|00000f80| 20 3d 20 73 74 72 20 26 | 20 22 20 73 69 7a 65 3d | = str &| " size=|
|00000f90| 22 20 26 20 43 68 72 28 | 33 34 29 0d 0a 09 73 74 |" & Chr(|34)...st|
|00000fa0| 72 20 3d 20 73 74 72 20 | 26 20 73 69 7a 65 20 26 |r = str |& size &|
|00000fb0| 20 43 68 72 28 33 34 29 | 20 26 20 22 3e 22 0d 0a | Chr(34)| & ">"..|
|00000fc0| 09 52 65 73 70 6f 6e 73 | 65 2e 57 72 69 74 65 20 |.Respons|e.Write |
|00000fd0| 73 74 72 0d 0a 09 09 27 | 20 41 64 64 20 74 68 65 |str....'| Add the|
|00000fe0| 20 61 64 64 76 61 6c 20 | 61 6e 64 20 61 64 64 74 | addval |and addt|
|00000ff0| 78 74 20 65 6e 74 72 69 | 65 73 0d 0a 09 49 66 20 |xt entri|es...If |
|00001000| 61 64 64 76 61 6c 20 3c | 3e 20 22 22 20 54 68 65 |addval <|> "" The|
|00001010| 6e 0d 0a 09 09 73 74 72 | 20 3d 20 22 3c 6f 70 74 |n....str| = "<opt|
|00001020| 69 6f 6e 20 22 0d 0a 09 | 09 27 20 43 68 65 63 6b |ion "...|.' Check|
|00001030| 20 66 6f 72 20 73 65 6c | 65 63 74 65 64 20 76 61 | for sel|ected va|
|00001040| 6c 75 65 28 73 29 0d 0a | 09 09 49 66 20 6d 75 6c |lue(s)..|..If mul|
|00001050| 74 69 70 6c 65 20 3d 20 | 54 72 75 65 20 41 6e 64 |tiple = |True And|
|00001060| 20 4c 65 6e 28 73 65 6c | 65 63 74 65 64 76 61 6c | Len(sel|ectedval|
|00001070| 29 20 3c 3e 20 30 20 54 | 68 65 6e 0d 0a 09 09 09 |) <> 0 T|hen.....|
|00001080| 46 6f 72 20 69 20 3d 20 | 6c 6f 77 20 74 6f 20 75 |For i = |low to u|
|00001090| 70 0d 0a 09 09 09 09 49 | 66 20 61 64 64 76 61 6c |p......I|f addval|
|000010a0| 20 3d 20 73 65 6c 65 63 | 74 65 64 76 61 6c 28 69 | = selec|tedval(i|
|000010b0| 29 20 54 68 65 6e 0d 0a | 09 09 09 09 09 73 74 72 |) Then..|.....str|
|000010c0| 20 3d 20 73 74 72 20 26 | 20 22 73 65 6c 65 63 74 | = str &| "select|
|000010d0| 65 64 20 22 0d 0a 09 09 | 09 09 09 45 78 69 74 20 |ed "....|...Exit |
|000010e0| 46 6f 72 0d 0a 09 09 09 | 09 45 6e 64 20 49 66 0d |For.....|.End If.|
|000010f0| 0a 09 09 09 4e 65 78 74 | 0d 0a 09 09 45 6c 73 65 |....Next|....Else|
|00001100| 0d 0a 09 09 09 49 66 20 | 61 64 64 76 61 6c 20 3d |.....If |addval =|
|00001110| 20 73 65 6c 65 63 74 65 | 64 76 61 6c 20 54 68 65 | selecte|dval The|
|00001120| 6e 0d 0a 09 09 09 09 73 | 74 72 20 3d 20 73 74 72 |n......s|tr = str|
|00001130| 20 26 20 22 73 65 6c 65 | 63 74 65 64 20 22 0d 0a | & "sele|cted "..|
|00001140| 09 09 09 45 6e 64 20 49 | 66 0d 0a 09 09 45 6e 64 |...End I|f....End|
|00001150| 20 49 66 0d 0a 09 09 73 | 74 72 20 3d 20 73 74 72 | If....s|tr = str|
|00001160| 20 26 20 22 76 61 6c 75 | 65 3d 22 20 26 20 43 68 | & "valu|e=" & Ch|
|00001170| 72 28 33 34 29 20 26 20 | 61 64 64 76 61 6c 20 26 |r(34) & |addval &|
|00001180| 20 43 68 72 28 33 34 29 | 20 26 20 22 3e 22 0d 0a | Chr(34)| & ">"..|
|00001190| 09 09 73 74 72 20 3d 20 | 73 74 72 20 26 20 61 64 |..str = |str & ad|
|000011a0| 64 74 78 74 20 26 20 22 | 3c 2f 6f 70 74 69 6f 6e |dtxt & "|</option|
|000011b0| 3e 22 0d 0a 09 09 52 65 | 73 70 6f 6e 73 65 2e 57 |>"....Re|sponse.W|
|000011c0| 72 69 74 65 20 73 74 72 | 0d 0a 09 45 6e 64 20 49 |rite str|...End I|
|000011d0| 66 0d 0a 09 27 20 4f 70 | 65 6e 20 72 65 63 6f 72 |f...' Op|en recor|
|000011e0| 64 73 65 74 20 61 6e 64 | 20 70 6f 70 75 6c 61 74 |dset and| populat|
|000011f0| 65 20 74 68 65 20 64 72 | 6f 70 20 64 6f 77 6e 20 |e the dr|op down |
|00001200| 6c 69 73 74 0d 0a 09 53 | 65 74 20 72 73 20 3d 20 |list...S|et rs = |
|00001210| 64 62 2e 45 78 65 63 75 | 74 65 28 73 71 6c 29 0d |db.Execu|te(sql).|
|00001220| 0a 09 09 44 6f 20 55 6e | 74 69 6c 20 72 73 2e 45 |...Do Un|til rs.E|
|00001230| 4f 46 0d 0a 09 09 73 74 | 72 20 3d 20 22 3c 6f 70 |OF....st|r = "<op|
|00001240| 74 69 6f 6e 20 22 0d 0a | 09 09 27 20 43 68 65 63 |tion "..|..' Chec|
|00001250| 6b 20 66 6f 72 20 73 65 | 6c 65 63 74 65 64 20 76 |k for se|lected v|
|00001260| 61 6c 75 65 28 73 29 0d | 0a 09 09 49 66 20 6d 75 |alue(s).|...If mu|
|00001270| 6c 74 69 70 6c 65 20 3d | 20 54 72 75 65 20 41 6e |ltiple =| True An|
|00001280| 64 20 4c 65 6e 28 73 65 | 6c 65 63 74 65 64 76 61 |d Len(se|lectedva|
|00001290| 6c 29 20 3c 3e 20 30 20 | 54 68 65 6e 0d 0a 09 09 |l) <> 0 |Then....|
|000012a0| 09 46 6f 72 20 69 20 3d | 20 6c 6f 77 20 74 6f 20 |.For i =| low to |
|000012b0| 75 70 0d 0a 09 09 09 09 | 49 66 20 72 73 28 76 61 |up......|If rs(va|
|000012c0| 6c 66 69 65 6c 64 29 20 | 3d 20 73 65 6c 65 63 74 |lfield) |= select|
|000012d0| 65 64 76 61 6c 28 69 29 | 20 54 68 65 6e 0d 0a 09 |edval(i)| Then...|
|000012e0| 09 09 09 09 73 74 72 20 | 3d 20 73 74 72 20 26 20 |....str |= str & |
|000012f0| 22 73 65 6c 65 63 74 65 | 64 20 22 0d 0a 09 09 09 |"selecte|d ".....|
|00001300| 09 09 45 78 69 74 20 46 | 6f 72 0d 0a 09 09 09 09 |..Exit F|or......|
|00001310| 45 6e 64 20 49 66 0d 0a | 09 09 09 4e 65 78 74 0d |End If..|...Next.|
|00001320| 0a 09 09 45 6c 73 65 0d | 0a 09 09 09 49 66 20 72 |...Else.|....If r|
|00001330| 73 28 76 61 6c 66 69 65 | 6c 64 29 20 3d 20 73 65 |s(valfie|ld) = se|
|00001340| 6c 65 63 74 65 64 76 61 | 6c 20 54 68 65 6e 0d 0a |lectedva|l Then..|
|00001350| 09 09 09 09 73 74 72 20 | 3d 20 73 74 72 20 26 20 |....str |= str & |
|00001360| 22 73 65 6c 65 63 74 65 | 64 20 22 0d 0a 09 09 09 |"selecte|d ".....|
|00001370| 45 6e 64 20 49 66 0d 0a | 09 09 45 6e 64 20 49 66 |End If..|..End If|
|00001380| 0d 0a 09 09 73 74 72 20 | 3d 20 73 74 72 20 26 20 |....str |= str & |
|00001390| 22 76 61 6c 75 65 3d 22 | 20 26 20 43 68 72 28 33 |"value="| & Chr(3|
|000013a0| 34 29 20 26 20 72 73 28 | 76 61 6c 66 69 65 6c 64 |4) & rs(|valfield|
|000013b0| 29 20 26 20 43 68 72 28 | 33 34 29 20 26 20 22 3e |) & Chr(|34) & ">|
|000013c0| 22 0d 0a 09 09 73 74 72 | 20 3d 20 73 74 72 20 26 |"....str| = str &|
|000013d0| 20 72 73 28 74 78 74 66 | 69 65 6c 64 29 20 26 20 | rs(txtf|ield) & |
|000013e0| 22 3c 2f 6f 70 74 69 6f | 6e 3e 22 0d 0a 09 09 52 |"</optio|n>"....R|
|000013f0| 65 73 70 6f 6e 73 65 2e | 57 72 69 74 65 20 73 74 |esponse.|Write st|
|00001400| 72 0d 0a 09 09 09 72 73 | 2e 4d 6f 76 65 4e 65 78 |r.....rs|.MoveNex|
|00001410| 74 0d 0a 09 4c 6f 6f 70 | 0d 0a 09 72 73 2e 43 6c |t...Loop|...rs.Cl|
|00001420| 6f 73 65 0d 0a 09 53 65 | 74 20 72 73 20 3d 20 4e |ose...Se|t rs = N|
|00001430| 6f 74 68 69 6e 67 0d 0a | 20 20 20 20 20 20 20 20 |othing..|        |
|00001440| 09 52 65 73 70 6f 6e 73 | 65 2e 57 72 69 74 65 20 |.Respons|e.Write |
|00001450| 22 3c 2f 73 65 6c 65 63 | 74 3e 22 0d 0a 45 6e 64 |"</selec|t>"..End|
|00001460| 20 53 75 62 0d 0a 0e 00 | 00 00 32 2e 30 20 61 6e | Sub....|..2.0 an|
|00001470| 64 20 68 69 67 68 65 72 | 0e 00 00 00 33 2e 30 20 |d higher|....3.0 |
|00001480| 61 6e 64 20 68 69 67 68 | 65 72 00 00 00 00 00 00 |and high|er......|
|00001490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 0e 00 00 00 44 65 6c 65 | 74 65 44 62 52 65 63 6f |....Dele|teDbReco|
|000014d0| 72 64 0e 00 00 00 44 65 | 6c 65 74 65 44 62 52 65 |rd....De|leteDbRe|
|000014e0| 63 6f 72 64 03 00 00 00 | 41 53 50 24 00 00 00 44 |cord....|ASP$...D|
|000014f0| 65 6c 65 74 65 73 20 72 | 65 63 6f 72 64 20 66 72 |eletes r|ecord fr|
|00001500| 6f 6d 20 61 20 64 61 74 | 61 62 61 73 65 20 74 61 |om a dat|abase ta|
|00001510| 62 6c 65 47 05 00 00 27 | 3d 3d 3d 3d 3d 3d 3d 3d |bleG...'|========|
|00001520| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001540| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001550| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001560| 3d 3d 3d 0d 0a 27 20 50 | 52 4f 43 45 44 55 52 45 |===..' P|ROCEDURE|
|00001570| 3a 09 44 65 6c 65 74 65 | 44 62 52 65 63 6f 72 64 |:.Delete|DbRecord|
|00001580| 0d 0a 0d 0a 27 20 49 4e | 50 55 54 3a 09 09 09 64 |....' IN|PUT:...d|
|00001590| 62 20 28 6f 62 6a 65 63 | 74 29 09 09 09 09 2d 20 |b (objec|t)....- |
|000015a0| 61 6e 20 6f 70 65 6e 65 | 64 20 64 61 74 61 62 61 |an opene|d databa|
|000015b0| 73 65 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 20 6f 62 |se conne|ction ob|
|000015c0| 6a 65 63 74 0d 0a 27 09 | 09 09 09 09 74 61 62 6c |ject..'.|....tabl|
|000015d0| 65 6e 61 6d 65 20 28 73 | 74 72 69 6e 67 29 09 2d |ename (s|tring).-|
|000015e0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|000015f0| 20 74 61 62 6c 65 20 63 | 6f 6e 74 61 69 6e 69 6e | table c|ontainin|
|00001600| 52 00 4f 00 4f 00 54 00 | 31 00 00 00 00 00 00 00 |R.O.O.T.|1.......|
|00001610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001640| 0c 00 01 01 02 00 00 00 | 06 00 00 00 05 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 9d 7c ca | 9b ed bd 01 a0 23 7e ca |......|.|.....#~.|
|00001670| 9b ed bd 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 44 00 41 00 54 00 41 00 | 00 00 00 00 00 00 00 00 |D.A.T.A.|........|
|00001690| 00 00 00 00 00 00 00 00 | 00 00 00 00 e8 05 00 00 |........|........|
|000016a0| 48 27 00 00 00 00 00 00 | 28 00 00 00 01 00 00 00 |H'......|(.......|
|000016b0| 88 83 00 00 2f 01 00 00 | 00 00 00 00 00 00 00 00 |..../...|........|
|000016c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000016d0| 28 00 00 00 01 00 00 00 | 10 89 00 00 34 01 00 00 |(.......|....4...|
|000016e0| 80 03 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 00 00 33 00 00 00 | c2 05 00 00 01 00 00 00 |....3...|........|
|00001700| 52 00 4f 00 4f 00 54 00 | 32 00 00 00 00 00 00 00 |R.O.O.T.|2.......|
|00001710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001730| 48 27 00 00 38 36 00 00 | 28 00 00 00 01 00 00 00 |H'..86..|(.......|
|00001740| 0c 00 01 01 ff ff ff ff | ff ff ff ff 07 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 a0 23 7e ca | 9b ed bd 01 a0 23 7e ca |.....#~.|.....#~.|
|00001770| 9b ed bd 01 44 00 41 00 | 54 00 41 00 00 00 00 00 |....D.A.|T.A.....|
|00001780| 44 00 41 00 54 00 41 00 | 00 00 00 00 01 00 00 00 |D.A.T.A.|........|
|00001790| 18 86 00 00 60 b6 bb 77 | 50 53 53 74 f8 81 45 02 |....`..w|PSSt..E.|
|000017a0| 01 00 00 00 18 82 45 02 | e0 b5 bb 77 b8 b5 bb 77 |......E.|...w...w|
|000017b0| a8 b5 bb 77 90 b5 bb 77 | 58 b5 bb 77 00 00 00 00 |...w...w|X..w....|
|000017c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000017d0| 98 8d 00 00 2b 01 00 00 | 00 00 00 00 00 00 00 00 |....+...|........|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 00 4b 00 00 00 | b8 02 00 00 30 01 00 00 |....K...|....0...|
|00001800| 67 20 74 68 65 20 72 65 | 63 6f 72 64 0d 0a 27 09 |g the re|cord..'.|
|00001810| 09 09 09 09 09 09 09 09 | 09 09 09 20 20 74 6f 20 |........|...  to |
|00001820| 62 65 20 64 65 6c 65 74 | 65 64 0d 0a 27 09 09 09 |be delet|ed..'...|
|00001830| 09 09 6b 65 79 6e 61 6d | 65 20 28 73 74 72 69 6e |..keynam|e (strin|
|00001840| 67 29 09 09 2d 20 74 68 | 65 20 6e 61 6d 65 20 6f |g)..- th|e name o|
|00001850| 66 20 74 68 65 20 6b 65 | 79 20 66 69 65 6c 64 20 |f the ke|y field |
|00001860| 75 73 65 64 20 74 6f 20 | 66 69 6c 74 65 72 0d 0a |used to |filter..|
|00001870| 27 09 09 09 09 09 09 09 | 09 09 09 09 09 20 20 74 |'.......|.....  t|
|00001880| 68 65 20 72 65 63 6f 72 | 64 20 73 65 74 0d 0a 27 |he recor|d set..'|
|00001890| 09 09 09 09 09 6b 65 79 | 76 61 6c 20 28 73 74 72 |.....key|val (str|
|000018a0| 69 6e 67 29 09 09 2d 20 | 74 68 65 20 76 61 6c 75 |ing)..- |the valu|
|000018b0| 65 20 6f 66 20 74 68 65 | 20 6b 65 79 20 66 69 65 |e of the| key fie|
|000018c0| 6c 64 20 28 64 61 74 65 | 20 76 61 6c 75 65 73 0d |ld (date| values.|
|000018d0| 0a 27 09 09 09 09 09 09 | 09 09 09 09 09 09 20 20 |.'......|......  |
|000018e0| 6d 75 73 74 20 62 65 20 | 69 6e 20 74 68 65 20 66 |must be |in the f|
|000018f0| 6f 72 6d 61 74 20 79 79 | 79 79 2d 6d 6d 2d 64 64 |ormat yy|yy-mm-dd|
|00001900| 29 0d 0a 27 09 09 09 09 | 09 6b 65 79 74 79 70 65 |)..'....|.keytype|
|00001910| 20 28 73 74 72 69 6e 67 | 29 09 09 2d 20 74 68 65 | (string|)..- the|
|00001920| 20 64 61 74 61 20 74 79 | 70 65 20 6f 66 20 74 68 | data ty|pe of th|
|00001930| 65 20 6b 65 79 20 66 69 | 65 6c 64 0d 0a 0d 0a 27 |e key fi|eld....'|
|00001940| 20 44 45 53 43 3a 09 09 | 09 54 68 69 73 20 70 72 | DESC:..|.This pr|
|00001950| 6f 63 65 64 75 72 65 20 | 64 65 6c 65 74 65 73 20 |ocedure |deletes |
|00001960| 61 20 72 65 63 6f 72 64 | 20 66 72 6f 6d 20 74 68 |a record| from th|
|00001970| 65 20 73 70 65 63 69 66 | 69 65 64 20 74 61 62 6c |e specif|ied tabl|
|00001980| 65 0d 0a 27 09 09 09 09 | 09 77 68 69 63 68 20 6d |e..'....|.which m|
|00001990| 61 74 63 68 65 73 20 74 | 68 65 20 6b 65 79 20 70 |atches t|he key p|
|000019a0| 61 73 73 65 64 20 69 6e | 2e 20 41 20 70 61 73 73 |assed in|. A pass|
|000019b0| 74 68 72 6f 75 67 68 20 | 53 51 4c 20 73 74 61 74 |through |SQL stat|
|000019c0| 65 6d 65 6e 74 0d 0a 27 | 09 09 09 09 09 69 73 20 |ement..'|.....is |
|000019d0| 75 73 65 64 20 74 6f 20 | 64 65 6c 65 74 65 20 74 |used to |delete t|
|000019e0| 68 65 20 72 65 63 6f 72 | 64 2e 20 0d 0a 27 3d 3d |he recor|d. ..'==|
|000019f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 53 75 62 20 44 |========|=..Sub D|
|00001a40| 65 6c 65 74 65 44 62 52 | 65 63 6f 72 64 28 64 62 |eleteDbR|ecord(db|
|00001a50| 2c 20 74 61 62 6c 65 6e | 61 6d 65 2c 20 6b 65 79 |, tablen|ame, key|
|00001a60| 6e 61 6d 65 2c 20 6b 65 | 79 76 61 6c 2c 20 6b 65 |name, ke|yval, ke|
|00001a70| 79 74 79 70 65 29 0d 0a | 09 44 69 6d 20 73 71 6c |ytype)..|.Dim sql|
|00001a80| 0d 0a 09 09 27 20 2a 2a | 2a 20 59 6f 75 20 6d 69 |....' **|* You mi|
|00001a90| 67 68 74 20 68 61 76 65 | 20 74 6f 20 63 68 61 6e |ght have| to chan|
|00001aa0| 67 65 20 74 68 65 20 64 | 65 6c 69 6d 69 74 65 72 |ge the d|elimiter|
|00001ab0| 73 20 75 73 65 64 20 62 | 65 6c 6f 77 20 74 6f 20 |s used b|elow to |
|00001ac0| 66 69 74 20 79 6f 75 72 | 20 64 61 74 61 62 61 73 |fit your| databas|
|00001ad0| 65 20 72 65 71 75 69 72 | 65 6d 65 6e 74 73 0d 0a |e requir|ements..|
|00001ae0| 09 53 65 6c 65 63 74 20 | 43 61 73 65 20 6b 65 79 |.Select |Case key|
|00001af0| 74 79 70 65 0d 0a 09 09 | 43 61 73 65 20 22 4e 75 |type....|Case "Nu|
|00001b00| 6d 65 72 69 63 22 0d 0a | 09 09 09 73 71 6c 20 3d |meric"..|...sql =|
|00001b10| 20 22 44 45 4c 45 54 45 | 20 46 52 4f 4d 20 22 20 | "DELETE| FROM " |
|00001b20| 26 20 74 61 62 6c 65 6e | 61 6d 65 20 26 20 22 20 |& tablen|ame & " |
|00001b30| 57 48 45 52 45 20 22 20 | 26 20 6b 65 79 6e 61 6d |WHERE " |& keynam|
|00001b40| 65 20 26 20 22 20 3d 20 | 22 20 26 20 6b 65 79 76 |e & " = |" & keyv|
|00001b50| 61 6c 0d 0a 09 09 43 61 | 73 65 20 22 53 74 72 69 |al....Ca|se "Stri|
|00001b60| 6e 67 22 0d 0a 09 09 09 | 73 71 6c 20 3d 20 22 44 |ng".....|sql = "D|
|00001b70| 45 4c 45 54 45 20 46 52 | 4f 4d 20 22 20 26 20 74 |ELETE FR|OM " & t|
|00001b80| 61 62 6c 65 6e 61 6d 65 | 20 26 20 22 20 57 48 45 |ablename| & " WHE|
|00001b90| 52 45 20 22 20 26 20 6b | 65 79 6e 61 6d 65 20 26 |RE " & k|eyname &|
|00001ba0| 20 22 20 3d 20 27 22 20 | 26 20 6b 65 79 76 61 6c | " = '" |& keyval|
|00001bb0| 20 26 20 22 27 22 0d 0a | 09 09 43 61 73 65 20 22 | & "'"..|..Case "|
|00001bc0| 44 61 74 65 22 0d 0a 09 | 09 09 73 71 6c 20 3d 20 |Date"...|..sql = |
|00001bd0| 22 44 45 4c 45 54 45 20 | 46 52 4f 4d 20 22 20 26 |"DELETE |FROM " &|
|00001be0| 20 74 61 62 6c 65 6e 61 | 6d 65 20 26 20 22 20 57 | tablena|me & " W|
|00001bf0| 48 45 52 45 20 22 20 26 | 20 6b 65 79 6e 61 6d 65 |HERE " &| keyname|
|00001c00| 20 26 20 22 20 3d 20 23 | 22 20 20 26 20 6b 65 79 | & " = #|"  & key|
|00001c10| 76 61 6c 20 26 20 22 23 | 22 0d 0a 09 45 6e 64 20 |val & "#|"...End |
|00001c20| 53 65 6c 65 63 74 0d 0a | 09 0d 0a 09 64 62 2e 45 |Select..|....db.E|
|00001c30| 78 65 63 75 74 65 28 73 | 71 6c 29 0d 0a 45 6e 64 |xecute(s|ql)..End|
|00001c40| 20 53 75 62 20 27 20 45 | 6e 64 20 6f 66 20 64 65 | Sub ' E|nd of de|
|00001c50| 6c 65 74 65 44 62 52 65 | 63 6f 72 64 0d 0a 0e 00 |leteDbRe|cord....|
|00001c60| 00 00 32 2e 30 20 61 6e | 64 20 68 69 67 68 65 72 |..2.0 an|d higher|
|00001c70| 0e 00 00 00 33 2e 30 20 | 61 6e 64 20 68 69 67 68 |....3.0 |and high|
|00001c80| 65 72 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |er......|........|
|00001c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cc0| 0e 00 00 00 46 65 74 63 | 68 44 62 52 65 63 6f 72 |....Fetc|hDbRecor|
|00001cd0| 64 73 0e 00 00 00 46 65 | 74 63 68 44 62 52 65 63 |ds....Fe|tchDbRec|
|00001ce0| 6f 72 64 73 03 00 00 00 | 41 53 50 11 00 00 00 4f |ords....|ASP....O|
|00001cf0| 70 65 6e 73 20 61 20 72 | 65 63 6f 72 64 73 65 74 |pens a r|ecordset|
|00001d00| 50 02 00 00 27 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |P...'===|========|
|00001d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d50| 0d 0a 27 20 50 52 4f 43 | 45 44 55 52 45 3a 09 46 |..' PROC|EDURE:.F|
|00001d60| 65 74 63 68 44 62 52 65 | 63 6f 72 64 73 20 0d 0a |etchDbRe|cords ..|
|00001d70| 0d 0a 27 20 49 4e 50 55 | 54 3a 09 09 09 64 62 20 |..' INPU|T:...db |
|00001d80| 28 6f 62 6a 65 63 74 29 | 09 09 2d 20 61 6e 20 6f |(object)|..- an o|
|00001d90| 70 65 6e 65 64 20 64 61 | 74 61 62 61 73 65 20 63 |pened da|tabase c|
|00001da0| 6f 6e 6e 65 63 74 69 6f | 6e 20 6f 62 6a 65 63 74 |onnectio|n object|
|00001db0| 0d 0a 27 09 09 09 09 09 | 73 71 6c 20 28 73 74 72 |..'.....|sql (str|
|00001dc0| 69 6e 67 29 09 2d 20 74 | 68 65 20 53 51 4c 20 71 |ing).- t|he SQL q|
|00001dd0| 75 65 72 79 20 73 74 72 | 69 6e 67 20 75 73 65 64 |uery str|ing used|
|00001de0| 20 74 6f 20 6f 70 65 6e | 20 74 68 65 20 72 65 63 | to open| the rec|
|00001df0| 6f 72 64 20 73 65 74 0d | 0a 0d 0a 27 20 44 45 53 |ord set.|...' DES|
|00001e00| 43 3a 09 09 09 54 68 69 | 73 20 70 72 6f 63 65 64 |C:...Thi|s proced|
|00001e10| 75 72 65 20 6f 70 65 6e | 73 20 61 20 72 65 63 6f |ure open|s a reco|
|00001e20| 72 64 73 65 74 20 0d 0a | 27 3d 3d 3d 3d 3d 3d 3d |rdset ..|'=======|
|00001e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e70| 3d 3d 3d 3d 0d 0a 53 75 | 62 20 46 65 74 63 68 44 |====..Su|b FetchD|
|00001e80| 62 52 65 63 6f 72 64 73 | 28 64 62 2c 20 73 71 6c |bRecords|(db, sql|
|00001e90| 29 0d 0a 09 44 69 6d 20 | 72 73 0d 0a 09 0d 0a 09 |)...Dim |rs......|
|00001ea0| 53 65 74 20 72 73 20 3d | 20 64 62 2e 45 78 65 63 |Set rs =| db.Exec|
|00001eb0| 75 74 65 28 73 71 6c 29 | 0d 0a 09 0d 0a 09 44 6f |ute(sql)|......Do|
|00001ec0| 20 55 6e 74 69 6c 20 72 | 73 2e 45 4f 46 0d 0a 09 | Until r|s.EOF...|
|00001ed0| 09 27 20 2a 2a 2a 20 41 | 64 64 20 63 6f 64 65 20 |.' *** A|dd code |
|00001ee0| 74 6f 20 77 6f 72 6b 20 | 77 69 74 68 20 72 65 73 |to work |with res|
|00001ef0| 75 6c 74 20 73 65 74 20 | 2a 2a 2a 0d 0a 09 09 72 |ult set |***....r|
|00001f00| 73 2e 4d 6f 76 65 4e 65 | 78 74 0d 0a 09 4c 6f 6f |s.MoveNe|xt...Loo|
|00001f10| 70 20 0d 0a 0d 0a 09 72 | 73 2e 43 6c 6f 73 65 0d |p .....r|s.Close.|
|00001f20| 0a 09 53 65 74 20 72 73 | 20 3d 20 4e 6f 74 68 69 |..Set rs| = Nothi|
|00001f30| 6e 67 20 0d 0a 45 6e 64 | 20 53 75 62 20 27 20 45 |ng ..End| Sub ' E|
|00001f40| 6e 64 20 6f 66 20 66 65 | 74 63 68 44 62 52 65 63 |nd of fe|tchDbRec|
|00001f50| 6f 72 64 73 0e 00 00 00 | 32 2e 30 20 61 6e 64 20 |ords....|2.0 and |
|00001f60| 68 69 67 68 65 72 0e 00 | 00 00 33 2e 30 20 61 6e |higher..|..3.0 an|
|00001f70| 64 20 68 69 67 68 65 72 | 00 00 00 00 00 00 00 00 |d higher|........|
|00001f80| 0a 00 00 00 46 69 6c 65 | 45 78 69 73 74 73 0a 00 |....File|Exists..|
|00001f90| 00 00 46 69 6c 65 45 78 | 69 73 74 73 03 00 00 00 |..FileEx|ists....|
|00001fa0| 41 53 50 63 00 00 00 41 | 63 74 69 76 65 20 53 65 |ASPc...A|ctive Se|
|00001fb0| 72 76 65 72 20 46 75 6e | 63 74 69 6f 6e 20 77 72 |rver Fun|ction wr|
|00001fc0| 69 74 74 65 6e 20 69 6e | 20 56 42 53 63 72 69 70 |itten in| VBScrip|
|00001fd0| 74 20 74 68 61 74 20 64 | 65 74 65 72 6d 69 6e 65 |t that d|etermine|
|00001fe0| 73 20 69 66 20 61 20 66 | 69 6c 65 20 65 78 69 73 |s if a f|ile exis|
|00001ff0| 74 73 20 77 69 74 68 69 | 6e 20 74 68 65 20 65 6e |ts withi|n the en|
|00002000| 52 00 4f 00 4f 00 54 00 | 33 00 00 00 00 00 45 02 |R.O.O.T.|3.....E.|
|00002010| e0 b5 bb 77 b8 b5 bb 77 | a8 b5 bb 77 90 b5 bb 77 |...w...w|...w...w|
|00002020| 58 b5 bb 77 00 00 00 00 | 00 00 00 00 00 00 00 00 |X..w....|........|
|00002030| 28 00 00 00 01 00 00 00 | 40 89 00 00 33 01 00 00 |(.......|@...3...|
|00002040| 0c 00 01 01 04 00 00 00 | 0c 00 00 00 09 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| 00 00 00 00 a0 23 7e ca | 9b ed bd 01 a0 23 7e ca |.....#~.|.....#~.|
|00002070| 9b ed bd 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002080| 44 00 41 00 54 00 41 00 | 00 00 00 00 60 b6 bb 77 |D.A.T.A.|....`..w|
|00002090| 50 53 53 74 18 83 45 02 | 01 00 00 00 38 83 45 02 |PSSt..E.|....8.E.|
|000020a0| e0 b5 bb 77 b8 b5 bb 77 | a8 b5 bb 77 90 b5 bb 77 |...w...w|...w...w|
|000020b0| 58 b5 bb 77 00 00 00 00 | 00 00 00 00 00 00 00 00 |X..w....|........|
|000020c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 c0 74 00 00 |........|.....t..|
|000020e0| 80 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 56 00 00 00 | 7e 06 00 00 00 00 00 00 |....V...|~.......|
|00002100| 52 00 4f 00 4f 00 54 00 | 34 00 00 00 00 00 00 00 |R.O.O.T.|4.......|
|00002110| 30 00 00 00 01 00 00 00 | 08 81 00 00 60 b6 bb 77 |0.......|....`..w|
|00002120| 50 53 53 74 a8 83 45 02 | 01 00 00 00 c8 83 45 02 |PSSt..E.|......E.|
|00002130| e0 b5 bb 77 b8 b5 bb 77 | a8 b5 bb 77 90 b5 bb 77 |...w...w|...w...w|
|00002140| 0c 00 01 01 ff ff ff ff | ff ff ff ff 0b 00 00 00 |........|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 a0 23 7e ca | 9b ed bd 01 a0 23 7e ca |.....#~.|.....#~.|
|00002170| 9b ed bd 01 28 7c 00 00 | f8 00 00 00 01 00 00 00 |....(|..|........|
|00002180| 44 00 41 00 54 00 41 00 | 00 00 00 00 44 00 41 00 |D.A.T.A.|....D.A.|
|00002190| 54 00 41 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |T.A.....|........|
|000021a0| 40 00 00 00 01 00 00 00 | 58 8b 00 00 60 b6 bb 77 |@.......|X...`..w|
|000021b0| 50 53 53 74 38 84 45 02 | 01 00 00 00 58 84 45 02 |PSSt8.E.|....X.E.|
|000021c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000021d0| 58 b5 bb 77 00 00 00 00 | 00 00 00 00 00 00 00 00 |X..w....|........|
|000021e0| 28 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |(.......|........|
|000021f0| 00 00 00 00 70 00 00 00 | 89 04 00 00 c0 74 00 00 |....p...|.....t..|
|00002200| 76 69 72 6f 6e 6d 65 6e | 74 2e cc 05 00 00 27 20 |vironmen|t.....' |
|00002210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002250| 3d 3d 3d 3d 3d 3d 0d 0a | 27 20 46 55 4e 43 54 49 |======..|' FUNCTI|
|00002260| 4f 4e 3a 09 44 69 73 70 | 6c 61 79 53 6f 75 72 63 |ON:.Disp|laySourc|
|00002270| 65 20 0d 0a 27 20 0d 0a | 27 20 49 4e 50 55 54 3a |e ..' ..|' INPUT:|
|00002280| 20 09 09 73 74 72 44 69 | 72 2c 20 73 74 72 69 6e | ..strDi|r, strin|
|00002290| 67 20 70 61 74 68 20 6f | 66 20 64 69 72 65 63 74 |g path o|f direct|
|000022a0| 6f 72 79 20 74 6f 20 73 | 65 61 72 63 68 0d 0a 27 |ory to s|earch..'|
|000022b0| 09 09 09 09 09 73 74 72 | 46 69 6c 65 4e 61 6d 65 |.....str|FileName|
|000022c0| 2c 20 73 74 72 69 6e 67 | 20 66 69 6c 65 6e 61 6d |, string| filenam|
|000022d0| 65 20 74 6f 20 73 65 61 | 72 63 68 20 66 6f 72 0d |e to sea|rch for.|
|000022e0| 0a 27 0d 0a 27 20 52 45 | 54 55 52 4e 3a 09 09 42 |.'..' RE|TURN:..B|
|000022f0| 6f 6f 6c 65 61 6e 3a 20 | 54 72 75 65 20 69 66 20 |oolean: |True if |
|00002300| 66 69 6c 65 20 65 78 69 | 73 74 73 2c 20 66 61 6c |file exi|sts, fal|
|00002310| 73 65 20 6f 74 68 65 72 | 77 69 73 65 0d 0a 27 0d |se other|wise..'.|
|00002320| 0a 27 20 44 45 53 43 3a | 09 09 09 54 68 69 73 20 |.' DESC:|...This |
|00002330| 66 75 6e 63 74 69 6f 6e | 20 77 69 6c 6c 20 63 68 |function| will ch|
|00002340| 65 63 6b 20 61 6e 64 20 | 64 65 74 65 72 6d 69 6e |eck and |determin|
|00002350| 65 20 77 68 65 74 68 65 | 72 20 6f 72 20 6e 6f 74 |e whethe|r or not|
|00002360| 20 61 20 66 69 6c 65 0d | 0a 27 20 09 09 09 09 09 | a file.|.' .....|
|00002370| 65 78 69 73 74 73 20 77 | 69 74 68 69 6e 20 61 20 |exists w|ithin a |
|00002380| 73 70 65 63 69 66 69 65 | 64 20 64 69 72 65 63 74 |specifie|d direct|
|00002390| 6f 72 79 2e 0d 0a 27 0d | 0a 27 0d 0a 27 20 50 4c |ory...'.|.'..' PL|
|000023a0| 41 54 46 4f 52 4d 53 3a | 09 4e 65 74 73 63 61 70 |ATFORMS:|.Netscap|
|000023b0| 65 20 4e 61 76 69 67 61 | 74 6f 72 20 32 2e 30 30 |e Naviga|tor 2.00|
|000023c0| 20 61 6e 64 20 68 69 67 | 68 65 72 2c 0d 0a 27 20 | and hig|her,..' |
|000023d0| 09 09 09 20 20 09 4d 69 | 63 72 6f 73 6f 66 74 20 |...  .Mi|crosoft |
|000023e0| 49 6e 74 65 72 6e 65 74 | 20 45 78 70 6c 6f 72 65 |Internet| Explore|
|000023f0| 72 20 33 2e 30 32 20 61 | 6e 64 20 68 69 67 68 65 |r 3.02 a|nd highe|
|00002400| 72 2c 0d 0a 27 20 09 09 | 09 20 20 09 4e 65 74 73 |r,..' ..|.  .Nets|
|00002410| 63 61 70 65 20 45 6e 74 | 65 72 70 72 69 73 65 20 |cape Ent|erprise |
|00002420| 53 65 72 76 65 72 20 33 | 2e 30 2c 0d 0a 27 20 09 |Server 3|.0,..' .|
|00002430| 09 09 20 20 09 4d 69 63 | 72 6f 73 6f 66 74 20 49 |..  .Mic|rosoft I|
|00002440| 49 53 2f 41 53 50 20 33 | 2e 30 2e 0d 0a 27 20 3d |IS/ASP 3|.0...' =|
|00002450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002490| 3d 3d 3d 3d 3d 20 0d 0a | 0d 0a 46 55 4e 43 54 49 |===== ..|..FUNCTI|
|000024a0| 4f 4e 20 46 69 6c 65 45 | 78 69 73 74 73 28 42 79 |ON FileE|xists(By|
|000024b0| 56 61 6c 20 73 74 72 44 | 69 72 2c 20 42 79 56 61 |Val strD|ir, ByVa|
|000024c0| 6c 20 73 74 72 46 69 6c | 65 4e 61 6d 65 29 0d 0a |l strFil|eName)..|
|000024d0| 20 20 27 20 4e 65 65 64 | 20 74 68 69 73 20 74 6f |  ' Need| this to|
|000024e0| 20 70 72 65 76 65 6e 74 | 20 73 68 6f 77 69 6e 67 | prevent| showing|
|000024f0| 20 72 75 6e 74 69 6d 65 | 20 65 72 72 6f 72 73 20 | runtime| errors |
|00002500| 20 20 20 0d 0a 20 20 4f | 4e 20 45 52 52 4f 52 20 |   ..  O|N ERROR |
|00002510| 52 45 53 55 4d 45 20 4e | 45 58 54 0d 0a 0d 0a 20 |RESUME N|EXT.... |
|00002520| 20 27 20 44 65 66 61 75 | 6c 74 20 74 6f 20 74 72 | ' Defau|lt to tr|
|00002530| 75 65 0d 0a 20 20 46 69 | 6c 65 45 78 69 73 74 73 |ue..  Fi|leExists|
|00002540| 20 3d 20 54 52 55 45 0d | 0a 0d 0a 20 20 27 20 43 | = TRUE.|...  ' C|
|00002550| 72 65 61 74 65 20 74 68 | 65 20 66 69 6c 65 6e 61 |reate th|e filena|
|00002560| 6d 65 20 74 6f 20 75 73 | 65 2c 20 74 68 69 73 20 |me to us|e, this |
|00002570| 69 73 20 61 20 77 65 62 | 20 64 69 72 2c 20 2f 20 |is a web| dir, / |
|00002580| 3d 20 72 6f 6f 74 2e 0d | 0a 20 20 46 4e 20 3d 20 |= root..|.  FN = |
|00002590| 28 53 65 72 76 65 72 2e | 4d 61 70 50 61 74 68 28 |(Server.|MapPath(|
|000025a0| 73 74 72 44 69 72 29 20 | 26 20 22 5c 22 20 26 20 |strDir) |& "\" & |
|000025b0| 73 74 72 46 69 6c 65 4e | 61 6d 65 29 0d 0a 0d 0a |strFileN|ame)....|
|000025c0| 20 20 27 20 43 72 65 61 | 74 65 20 46 69 6c 65 53 |  ' Crea|te FileS|
|000025d0| 79 73 74 65 6d 4f 62 6a | 65 63 74 0d 0a 20 20 53 |ystemObj|ect..  S|
|000025e0| 45 54 20 46 53 20 3d 20 | 53 65 72 76 65 72 2e 43 |ET FS = |Server.C|
|000025f0| 72 65 61 74 65 4f 62 6a | 65 63 74 28 22 53 63 72 |reateObj|ect("Scr|
|00002600| 69 70 74 69 6e 67 2e 46 | 69 6c 65 53 79 73 74 65 |ipting.F|ileSyste|
|00002610| 6d 4f 62 6a 65 63 74 22 | 29 0d 0a 0d 0a 20 20 27 |mObject"|)....  '|
|00002620| 20 4f 70 65 6e 20 74 68 | 65 20 66 69 6c 65 2c 20 | Open th|e file, |
|00002630| 74 72 65 61 74 20 61 73 | 20 74 65 78 74 66 69 6c |treat as| textfil|
|00002640| 65 2c 20 64 6f 65 73 6e | 27 74 20 6d 61 74 74 65 |e, doesn|'t matte|
|00002650| 72 0d 0a 20 20 53 45 54 | 20 49 6e 53 74 72 65 61 |r..  SET| InStrea|
|00002660| 6d 3d 46 53 2e 4f 70 65 | 6e 54 65 78 74 46 69 6c |m=FS.Ope|nTextFil|
|00002670| 65 20 28 46 4e 2c 20 31 | 2c 20 46 41 4c 53 45 2c |e (FN, 1|, FALSE,|
|00002680| 20 46 41 4c 53 45 29 0d | 0a 0d 0a 20 20 27 20 49 | FALSE).|...  ' I|
|00002690| 66 20 61 6e 79 74 68 69 | 6e 67 20 6f 74 68 65 72 |f anythi|ng other|
|000026a0| 20 74 68 61 6e 20 30 20 | 74 68 65 6e 20 63 6f 75 | than 0 |then cou|
|000026b0| 6c 64 6e 27 74 20 6f 70 | 65 6e 20 74 68 65 20 66 |ldn't op|en the f|
|000026c0| 69 6c 65 0d 0a 20 20 49 | 46 20 28 45 72 72 2e 4e |ile..  I|F (Err.N|
|000026d0| 75 6d 62 65 72 3c 3e 30 | 29 20 54 48 45 4e 20 20 |umber<>0|) THEN  |
|000026e0| 20 20 20 20 0d 0a 20 20 | 20 20 27 20 43 6c 65 61 |    ..  |  ' Clea|
|000026f0| 72 20 65 72 72 6f 72 20 | 20 20 20 20 20 0d 0a 20 |r error |     .. |
|00002700| 20 20 20 45 72 72 2e 43 | 6c 65 61 72 0d 0a 20 20 |   Err.C|lear..  |
|00002710| 20 20 27 20 46 69 6c 65 | 20 64 6f 65 73 6e 27 74 |  ' File| doesn't|
|00002720| 20 65 78 69 73 74 0d 0a | 20 20 20 20 46 69 6c 65 | exist..|    File|
|00002730| 45 78 69 73 74 73 20 3d | 20 46 41 4c 53 45 20 20 |Exists =| FALSE  |
|00002740| 20 20 0d 0a 20 20 45 4e | 44 20 49 46 0d 0a 20 20 |  ..  EN|D IF..  |
|00002750| 0d 0a 20 20 27 20 43 6c | 6f 73 65 20 74 68 65 20 |..  ' Cl|ose the |
|00002760| 69 6e 70 75 74 20 73 74 | 72 65 61 6d 20 20 20 20 |input st|ream    |
|00002770| 0d 0a 20 20 49 6e 73 74 | 72 65 61 6d 2e 43 6c 6f |..  Inst|ream.Clo|
|00002780| 73 65 20 20 20 20 0d 0a | 0d 0a 20 20 27 20 4b 69 |se    ..|..  ' Ki|
|00002790| 6c 6c 20 74 68 65 20 6f | 62 6a 65 63 74 73 0d 0a |ll the o|bjects..|
|000027a0| 20 20 53 45 54 20 49 6e | 53 74 72 65 61 6d 20 3d |  SET In|Stream =|
|000027b0| 20 4e 6f 74 68 69 6e 67 | 0d 0a 20 20 53 45 54 20 | Nothing|..  SET |
|000027c0| 46 53 20 3d 20 4e 6f 74 | 68 69 6e 67 0d 0a 45 4e |FS = Not|hing..EN|
|000027d0| 44 20 46 55 4e 43 54 49 | 4f 4e 0e 00 00 00 32 2e |D FUNCTI|ON....2.|
|000027e0| 30 20 61 6e 64 20 68 69 | 67 68 65 72 0e 00 00 00 |0 and hi|gher....|
|000027f0| 33 2e 30 20 61 6e 64 20 | 68 69 67 68 65 72 00 00 |3.0 and |higher..|
|00002800| 0f 00 00 00 47 6c 6f 62 | 61 6c 44 62 43 6f 6e 6e |....Glob|alDbConn|
|00002810| 65 63 74 0f 00 00 00 47 | 6c 6f 62 61 6c 44 62 43 |ect....G|lobalDbC|
|00002820| 6f 6e 6e 65 63 74 03 00 | 00 00 41 53 50 28 00 00 |onnect..|..ASP(..|
|00002830| 00 4f 70 65 6e 73 20 61 | 20 67 6c 6f 62 61 6c 20 |.Opens a| global |
|00002840| 6c 65 76 65 6c 20 64 61 | 74 61 62 61 73 65 20 63 |level da|tabase c|
|00002850| 6f 6e 6e 65 63 74 69 6f | 6e 08 04 00 00 27 3d 3d |onnectio|n....'==|
|00002860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 27 20 50 52 4f |========|=..' PRO|
|000028b0| 43 45 44 55 52 45 3a 09 | 47 6c 6f 62 61 6c 44 62 |CEDURE:.|GlobalDb|
|000028c0| 43 6f 6e 6e 65 63 74 20 | 20 0d 0a 0d 0a 27 20 49 |Connect | ....' I|
|000028d0| 4e 50 55 54 3a 09 09 09 | 64 62 6e 61 6d 65 20 28 |NPUT:...|dbname (|
|000028e0| 73 74 72 69 6e 67 29 09 | 09 2d 20 74 68 65 20 6e |string).|.- the n|
|000028f0| 61 6d 65 20 6f 66 20 74 | 68 65 20 67 6c 6f 62 61 |ame of t|he globa|
|00002900| 6c 20 76 61 72 69 61 62 | 6c 65 20 74 68 61 74 0d |l variab|le that.|
|00002910| 0a 27 09 09 09 09 09 09 | 09 09 09 09 09 09 20 20 |.'......|......  |
|00002920| 77 69 6c 6c 20 68 6f 6c | 64 20 74 68 65 20 64 61 |will hol|d the da|
|00002930| 74 61 62 61 73 65 20 63 | 6f 6e 6e 65 63 74 69 6f |tabase c|onnectio|
|00002940| 6e 0d 0a 27 09 09 09 09 | 09 64 62 09 09 09 09 09 |n..'....|.db.....|
|00002950| 09 09 2d 20 76 61 72 69 | 61 62 6c 65 20 74 6f 20 |..- vari|able to |
|00002960| 68 6f 6c 64 20 6c 6f 63 | 61 6c 20 63 6f 70 79 20 |hold loc|al copy |
|00002970| 6f 66 20 64 61 74 61 62 | 61 73 65 0d 0a 27 09 09 |of datab|ase..'..|
|00002980| 09 09 09 09 09 09 09 09 | 09 09 20 20 63 6f 6e 6e |........|..  conn|
|00002990| 65 63 74 69 6f 6e 20 6f | 62 6a 65 63 74 0d 0a 27 |ection o|bject..'|
|000029a0| 09 09 09 09 09 64 61 74 | 61 73 6f 75 72 63 65 20 |.....dat|asource |
|000029b0| 28 73 74 72 69 6e 67 29 | 09 2d 20 74 68 65 20 6e |(string)|.- the n|
|000029c0| 61 6d 65 20 6f 66 20 74 | 68 65 20 64 61 74 61 20 |ame of t|he data |
|000029d0| 73 6f 75 72 63 65 20 75 | 73 65 64 20 74 6f 20 6d |source u|sed to m|
|000029e0| 61 6b 65 20 74 68 65 0d | 0a 27 09 09 09 09 09 09 |ake the.|.'......|
|000029f0| 09 09 09 20 20 09 09 09 | 20 20 63 6f 6e 6e 65 63 |...  ...|  connec|
|00002a00| 81 00 00 00 82 00 00 00 | fe ff ff ff 84 00 00 00 |........|........|
|00002a10| 85 00 00 00 86 00 00 00 | 87 00 00 00 88 00 00 00 |........|........|
|00002a20| 89 00 00 00 8a 00 00 00 | 8b 00 00 00 8c 00 00 00 |........|........|
|00002a30| 8d 00 00 00 8e 00 00 00 | 8f 00 00 00 90 00 00 00 |........|........|
|00002a40| 91 00 00 00 92 00 00 00 | 93 00 00 00 94 00 00 00 |........|........|
|00002a50| 95 00 00 00 96 00 00 00 | 97 00 00 00 98 00 00 00 |........|........|
|00002a60| 99 00 00 00 9a 00 00 00 | fe ff ff ff 9c 00 00 00 |........|........|
|00002a70| 9d 00 00 00 9e 00 00 00 | 9f 00 00 00 a0 00 00 00 |........|........|
|00002a80| a1 00 00 00 a2 00 00 00 | a3 00 00 00 a4 00 00 00 |........|........|
|00002a90| a5 00 00 00 a6 00 00 00 | a7 00 00 00 a8 00 00 00 |........|........|
|00002aa0| fe ff ff ff aa 00 00 00 | ab 00 00 00 ac 00 00 00 |........|........|
|00002ab0| ad 00 00 00 ae 00 00 00 | af 00 00 00 b0 00 00 00 |........|........|
|00002ac0| b1 00 00 00 b2 00 00 00 | b3 00 00 00 b4 00 00 00 |........|........|
|00002ad0| b5 00 00 00 b6 00 00 00 | b7 00 00 00 fe ff ff ff |........|........|
|00002ae0| b9 00 00 00 ba 00 00 00 | bb 00 00 00 bc 00 00 00 |........|........|
|00002af0| bd 00 00 00 be 00 00 00 | bf 00 00 00 c0 00 00 00 |........|........|
|00002b00| c1 00 00 00 c2 00 00 00 | c3 00 00 00 fe ff ff ff |........|........|
|00002b10| c5 00 00 00 c6 00 00 00 | c7 00 00 00 c8 00 00 00 |........|........|
|00002b20| c9 00 00 00 ca 00 00 00 | cb 00 00 00 cc 00 00 00 |........|........|
|00002b30| cd 00 00 00 ce 00 00 00 | cf 00 00 00 d0 00 00 00 |........|........|
|00002b40| d1 00 00 00 d2 00 00 00 | d3 00 00 00 d4 00 00 00 |........|........|
|00002b50| d5 00 00 00 fe ff ff ff | d7 00 00 00 d8 00 00 00 |........|........|
|00002b60| d9 00 00 00 da 00 00 00 | db 00 00 00 dc 00 00 00 |........|........|
|00002b70| dd 00 00 00 de 00 00 00 | df 00 00 00 e0 00 00 00 |........|........|
|00002b80| e1 00 00 00 e2 00 00 00 | e3 00 00 00 e4 00 00 00 |........|........|
|00002b90| fe ff ff ff e6 00 00 00 | e7 00 00 00 e8 00 00 00 |........|........|
|00002ba0| e9 00 00 00 ea 00 00 00 | eb 00 00 00 ec 00 00 00 |........|........|
|00002bb0| ed 00 00 00 ee 00 00 00 | ef 00 00 00 f0 00 00 00 |........|........|
|00002bc0| f1 00 00 00 f2 00 00 00 | f3 00 00 00 f4 00 00 00 |........|........|
|00002bd0| f5 00 00 00 f6 00 00 00 | f7 00 00 00 f8 00 00 00 |........|........|
|00002be0| f9 00 00 00 fa 00 00 00 | fb 00 00 00 fc 00 00 00 |........|........|
|00002bf0| fd 00 00 00 fe 00 00 00 | ff 00 00 00 00 01 00 00 |........|........|
|00002c00| 74 69 6f 6e 0d 0a 27 09 | 09 09 09 09 75 73 65 72 |tion..'.|....user|
|00002c10| 6e 61 6d 65 09 20 28 73 | 74 72 69 6e 67 29 09 2d |name. (s|tring).-|
|00002c20| 20 74 68 65 20 75 73 65 | 72 6e 61 6d 65 20 75 73 | the use|rname us|
|00002c30| 65 64 20 74 6f 20 6c 6f | 67 69 6e 20 74 6f 20 74 |ed to lo|gin to t|
|00002c40| 68 65 20 64 61 74 61 20 | 73 6f 75 72 63 65 0d 0a |he data |source..|
|00002c50| 27 09 09 09 09 09 70 61 | 73 73 77 6f 72 64 09 20 |'.....pa|ssword. |
|00002c60| 28 73 74 72 69 6e 67 29 | 09 2d 20 74 68 65 20 70 |(string)|.- the p|
|00002c70| 61 73 73 77 6f 72 64 20 | 75 73 65 64 20 74 6f 20 |assword |used to |
|00002c80| 6c 6f 67 69 6e 20 74 6f | 20 74 68 65 20 64 61 74 |login to| the dat|
|00002c90| 61 20 73 6f 75 72 63 65 | 0d 0a 0d 0a 27 20 44 45 |a source|....' DE|
|00002ca0| 53 43 3a 09 09 09 54 68 | 69 73 20 70 72 6f 63 65 |SC:...Th|is proce|
|00002cb0| 64 75 72 65 20 6f 70 65 | 6e 73 20 61 20 67 6c 6f |dure ope|ns a glo|
|00002cc0| 62 61 6c 20 6c 65 76 65 | 6c 20 64 61 74 61 62 61 |bal leve|l databa|
|00002cd0| 73 65 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 0d 0a 27 |se conne|ction..'|
|00002ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0a 53 75 62 |========|===..Sub|
|00002d30| 20 47 6c 6f 62 61 6c 44 | 62 43 6f 6e 6e 65 63 74 | GlobalD|bConnect|
|00002d40| 28 64 62 6e 61 6d 65 2c | 20 64 62 2c 20 64 61 74 |(dbname,| db, dat|
|00002d50| 61 73 6f 75 72 63 65 2c | 20 75 73 65 72 6e 61 6d |asource,| usernam|
|00002d60| 65 2c 20 70 61 73 73 77 | 6f 72 64 29 0d 0a 09 27 |e, passw|ord)...'|
|00002d70| 20 43 6f 6e 6e 65 63 74 | 20 74 6f 20 64 61 74 61 | Connect| to data|
|00002d80| 62 61 73 65 20 0d 0a 09 | 53 65 74 20 53 65 73 73 |base ...|Set Sess|
|00002d90| 69 6f 6e 28 64 62 6e 61 | 6d 65 29 20 3d 20 53 65 |ion(dbna|me) = Se|
|00002da0| 72 76 65 72 2e 43 72 65 | 61 74 65 4f 62 6a 65 63 |rver.Cre|ateObjec|
|00002db0| 74 28 22 41 44 4f 44 42 | 2e 43 6f 6e 6e 65 63 74 |t("ADODB|.Connect|
|00002dc0| 69 6f 6e 22 29 0d 0a 09 | 53 65 73 73 69 6f 6e 28 |ion")...|Session(|
|00002dd0| 64 62 6e 61 6d 65 29 2e | 4f 70 65 6e 20 64 61 74 |dbname).|Open dat|
|00002de0| 61 73 6f 75 72 63 65 2c | 20 75 73 65 72 6e 61 6d |asource,| usernam|
|00002df0| 65 2c 20 70 61 73 73 77 | 6f 72 64 0d 0a 09 0d 0a |e, passw|ord.....|
|00002e00| 09 27 20 43 72 65 61 74 | 65 20 6c 6f 63 61 6c 20 |.' Creat|e local |
|00002e10| 63 6f 70 79 20 6f 66 20 | 64 61 74 61 62 61 73 65 |copy of |database|
|00002e20| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 0d 0a 09 53 65 | connect|ion...Se|
|00002e30| 74 20 64 62 20 3d 20 53 | 65 73 73 69 6f 6e 28 64 |t db = S|ession(d|
|00002e40| 62 6e 61 6d 65 29 0d 0a | 45 6e 64 20 53 75 62 20 |bname)..|End Sub |
|00002e50| 27 20 45 6e 64 20 47 6c | 6f 62 61 6c 44 62 43 6f |' End Gl|obalDbCo|
|00002e60| 6e 6e 65 63 74 0e 00 00 | 00 32 2e 30 20 61 6e 64 |nnect...|.2.0 and|
|00002e70| 20 68 69 67 68 65 72 0e | 00 00 00 33 2e 30 20 61 | higher.|...3.0 a|
|00002e80| 6e 64 20 68 69 67 68 65 | 72 00 00 00 00 00 00 00 |nd highe|r.......|
|00002e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ec0| 0e 00 00 00 49 6e 73 65 | 72 74 44 62 52 65 63 6f |....Inse|rtDbReco|
|00002ed0| 72 64 0e 00 00 00 49 6e | 73 65 72 74 44 62 52 65 |rd....In|sertDbRe|
|00002ee0| 63 6f 72 64 03 00 00 00 | 41 53 50 26 00 00 00 49 |cord....|ASP&...I|
|00002ef0| 6e 73 65 72 74 73 20 72 | 65 63 6f 72 64 20 69 6e |nserts r|ecord in|
|00002f00| 74 6f 20 74 68 65 20 64 | 61 74 61 62 61 73 65 20 |to the d|atabase |
|00002f10| 74 61 62 6c 65 68 05 00 | 00 27 3d 3d 3d 3d 3d 3d |tableh..|.'======|
|00002f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f60| 3d 3d 3d 3d 3d 0d 0a 27 | 20 50 52 4f 43 45 44 55 |=====..'| PROCEDU|
|00002f70| 52 45 3a 09 49 6e 73 65 | 72 74 44 62 52 65 63 6f |RE:.Inse|rtDbReco|
|00002f80| 72 64 0d 0a 0d 0a 27 20 | 49 4e 50 55 54 3a 09 09 |rd....' |INPUT:..|
|00002f90| 09 64 62 20 28 6f 62 6a | 65 63 74 29 09 09 09 09 |.db (obj|ect)....|
|00002fa0| 2d 20 61 6e 20 6f 70 65 | 6e 65 64 20 64 61 74 61 |- an ope|ned data|
|00002fb0| 62 61 73 65 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |base con|nection |
|00002fc0| 6f 62 6a 65 63 74 0d 0a | 27 09 09 09 09 09 74 61 |object..|'.....ta|
|00002fd0| 62 6c 65 6e 61 6d 65 31 | 20 28 73 74 72 69 6e 67 |blename1| (string|
|00002fe0| 29 09 2d 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |).- the |name of |
|00002ff0| 74 68 65 20 74 61 62 6c | 65 20 69 6e 74 6f 20 77 |the tabl|e into w|
|00003000| 52 00 4f 00 4f 00 54 00 | 35 00 00 00 00 00 00 00 |R.O.O.T.|5.......|
|00003010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 0c 00 01 01 0a 00 00 00 | 0e 00 00 00 0d 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003060| 00 00 00 00 a0 23 7e ca | 9b ed bd 01 a0 23 7e ca |.....#~.|.....#~.|
|00003070| 9b ed bd 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003080| 44 00 41 00 54 00 41 00 | 00 00 00 00 00 00 00 00 |D.A.T.A.|........|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 83 00 00 00 | e5 05 00 00 00 00 00 00 |........|........|
|00003100| 52 00 4f 00 4f 00 54 00 | 36 00 00 00 00 00 00 00 |R.O.O.T.|6.......|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003140| 0c 00 01 01 ff ff ff ff | ff ff ff ff 0f 00 00 00 |........|........|
|00003150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 a0 23 7e ca | 9b ed bd 01 a0 23 7e ca |.....#~.|.....#~.|
|00003170| 9b ed bd 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 44 00 41 00 54 00 41 00 | 00 00 00 00 00 00 00 00 |D.A.T.A.|........|
|00003190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 9b 00 00 00 | 65 03 00 00 00 00 00 00 |........|e.......|
|00003200| 68 69 63 68 20 74 68 65 | 20 72 65 63 6f 72 64 73 |hich the| records|
|00003210| 0d 0a 27 09 09 09 09 09 | 09 09 09 09 20 20 09 09 |..'.....|....  ..|
|00003220| 09 20 20 61 72 65 20 74 | 6f 20 62 65 20 69 6e 73 |.  are t|o be ins|
|00003230| 65 72 74 65 64 0d 0a 27 | 09 09 09 09 09 74 61 62 |erted..'|.....tab|
|00003240| 6c 65 6e 61 6d 65 32 20 | 28 73 74 72 69 6e 67 29 |lename2 |(string)|
|00003250| 09 2d 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |.- the n|ame of t|
|00003260| 68 65 20 74 61 62 6c 65 | 20 66 72 6f 6d 20 77 68 |he table| from wh|
|00003270| 69 63 68 20 74 68 65 20 | 72 65 63 6f 72 64 73 0d |ich the |records.|
|00003280| 0a 27 09 09 09 09 09 09 | 09 09 09 20 20 09 09 09 |.'......|...  ...|
|00003290| 20 20 74 6f 20 69 6e 73 | 65 72 74 20 61 72 65 20 |  to ins|ert are |
|000032a0| 74 6f 20 62 65 20 73 65 | 6c 65 63 74 65 64 20 28 |to be se|lected (|
|000032b0| 6c 65 61 76 65 20 62 6c | 61 6e 6b 0d 0a 27 09 09 |leave bl|ank..'..|
|000032c0| 09 09 09 09 09 09 09 20 | 20 09 09 09 20 20 69 66 |....... | ...  if|
|000032d0| 20 69 6e 73 65 72 74 69 | 6e 67 20 73 70 65 63 69 | inserti|ng speci|
|000032e0| 66 69 63 20 76 61 6c 75 | 65 73 29 0d 0a 27 09 09 |fic valu|es)..'..|
|000032f0| 09 09 09 66 69 65 6c 64 | 6c 69 73 74 20 28 73 74 |...field|list (st|
|00003300| 72 69 6e 67 29 09 2d 20 | 61 20 73 74 72 69 6e 67 |ring).- |a string|
|00003310| 20 63 6f 6e 73 74 72 75 | 63 74 65 64 20 75 73 69 | constru|cted usi|
|00003320| 6e 67 20 74 68 65 20 70 | 72 6f 70 65 72 20 71 75 |ng the p|roper qu|
|00003330| 65 72 79 0d 0a 27 09 09 | 09 09 09 09 09 09 09 09 |ery..'..|........|
|00003340| 09 09 20 20 6c 61 6e 67 | 75 61 67 65 20 73 79 6e |..  lang|uage syn|
|00003350| 74 61 78 20 74 68 61 74 | 20 63 6f 6e 74 61 69 6e |tax that| contain|
|00003360| 73 20 74 68 65 20 6c 69 | 73 74 20 6f 66 0d 0a 09 |s the li|st of...|
|00003370| 09 09 09 09 09 09 09 09 | 09 09 09 20 20 66 69 65 |........|...  fie|
|00003380| 6c 64 73 20 77 68 6f 73 | 65 20 76 61 6c 75 65 73 |lds whos|e values|
|00003390| 20 61 72 65 20 74 6f 20 | 62 65 20 69 6e 73 65 72 | are to |be inser|
|000033a0| 74 65 64 0d 0a 27 09 09 | 09 09 09 76 61 6c 75 65 |ted..'..|...value|
|000033b0| 6c 69 73 74 20 28 73 74 | 72 69 6e 67 29 09 2d 20 |list (st|ring).- |
|000033c0| 61 20 73 74 72 69 6e 67 | 20 63 6f 6e 73 74 72 75 |a string| constru|
|000033d0| 63 74 65 64 20 75 73 69 | 6e 67 20 74 68 65 20 70 |cted usi|ng the p|
|000033e0| 72 6f 70 65 72 20 71 75 | 65 72 79 0d 0a 27 09 09 |roper qu|ery..'..|
|000033f0| 09 09 09 09 09 09 09 20 | 20 09 09 09 20 20 6c 61 |....... | ...  la|
|00003400| 6e 67 75 61 67 65 20 73 | 79 74 6e 61 78 20 74 68 |nguage s|ytnax th|
|00003410| 61 74 20 63 6f 6e 74 61 | 69 6e 73 20 61 20 6c 69 |at conta|ins a li|
|00003420| 73 74 20 6f 66 0d 0a 27 | 09 09 09 09 09 09 09 09 |st of..'|........|
|00003430| 09 09 09 09 20 20 76 61 | 6c 75 65 73 20 74 6f 20 |....  va|lues to |
|00003440| 69 6e 73 65 72 74 0d 0a | 0d 0a 27 20 44 45 53 43 |insert..|..' DESC|
|00003450| 3a 09 09 09 54 68 69 73 | 20 70 72 6f 63 65 64 75 |:...This| procedu|
|00003460| 72 65 20 69 6e 73 65 72 | 74 73 20 61 20 72 65 63 |re inser|ts a rec|
|00003470| 6f 72 64 20 69 6e 74 6f | 20 61 20 74 61 62 6c 65 |ord into| a table|
|00003480| 20 75 73 69 6e 67 0d 0a | 27 09 09 09 09 09 61 20 | using..|'.....a |
|00003490| 70 61 73 73 74 68 72 6f | 75 67 68 20 53 51 4c 20 |passthro|ugh SQL |
|000034a0| 73 74 61 74 65 6d 65 6e | 74 2e 20 09 0d 0a 27 3d |statemen|t. ...'=|
|000034b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000034c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000034d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000034e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000034f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 0a 53 75 62 20 |========|==..Sub |
|00003500| 49 6e 73 65 72 74 44 62 | 52 65 63 6f 72 64 28 64 |InsertDb|Record(d|
|00003510| 62 2c 20 74 61 62 6c 65 | 6e 61 6d 65 31 2c 20 74 |b, table|name1, t|
|00003520| 61 62 6c 65 6e 61 6d 65 | 32 2c 20 66 69 65 6c 64 |ablename|2, field|
|00003530| 6c 69 73 74 2c 20 76 61 | 6c 75 65 6c 69 73 74 29 |list, va|luelist)|
|00003540| 0d 0a 09 44 69 6d 20 73 | 71 6c 20 0d 0a 09 0d 0a |...Dim s|ql .....|
|00003550| 09 49 66 20 4c 65 6e 28 | 76 61 6c 75 65 6c 69 73 |.If Len(|valuelis|
|00003560| 74 29 20 3d 20 30 20 54 | 68 65 6e 0d 0a 09 09 73 |t) = 0 T|hen....s|
|00003570| 71 6c 20 3d 20 22 49 4e | 53 45 52 54 20 49 4e 54 |ql = "IN|SERT INT|
|00003580| 4f 20 22 20 26 20 74 61 | 62 6c 65 6e 61 6d 65 31 |O " & ta|blename1|
|00003590| 20 26 20 22 20 28 22 20 | 26 20 66 69 65 6c 64 6c | & " (" |& fieldl|
|000035a0| 69 73 74 20 26 20 22 29 | 20 53 45 4c 45 43 54 20 |ist & ")| SELECT |
|000035b0| 22 20 26 20 66 69 65 6c | 64 6c 69 73 74 0d 0a 09 |" & fiel|dlist...|
|000035c0| 09 73 71 6c 20 3d 20 73 | 71 6c 20 26 20 22 20 46 |.sql = s|ql & " F|
|000035d0| 52 4f 4d 20 22 20 26 20 | 74 61 62 6c 65 6e 61 6d |ROM " & |tablenam|
|000035e0| 65 32 0d 0a 09 45 6c 73 | 65 0d 0a 09 09 73 71 6c |e2...Els|e....sql|
|000035f0| 20 3d 20 22 49 4e 53 45 | 52 54 20 49 4e 54 4f 20 | = "INSE|RT INTO |
|00003600| 22 20 26 20 74 61 62 6c | 65 6e 61 6d 65 31 20 26 |" & tabl|ename1 &|
|00003610| 20 22 20 28 22 20 26 20 | 66 69 65 6c 64 6c 69 73 | " (" & |fieldlis|
|00003620| 74 20 26 20 22 29 20 56 | 41 4c 55 45 53 20 28 22 |t & ") V|ALUES ("|
|00003630| 20 26 20 76 61 6c 75 65 | 6c 69 73 74 20 26 20 22 | & value|list & "|
|00003640| 29 22 0d 0a 09 45 6e 64 | 20 49 66 0d 0a 09 0d 0a |)"...End| If.....|
|00003650| 09 64 62 2e 45 78 65 63 | 75 74 65 28 73 71 6c 29 |.db.Exec|ute(sql)|
|00003660| 0d 0a 45 6e 64 20 53 75 | 62 20 27 20 45 6e 64 20 |..End Su|b ' End |
|00003670| 6f 66 20 69 6e 73 65 72 | 74 44 62 52 65 63 6f 72 |of inser|tDbRecor|
|00003680| 64 0e 00 00 00 32 2e 30 | 20 61 6e 64 20 68 69 67 |d....2.0| and hig|
|00003690| 68 65 72 0e 00 00 00 33 | 2e 30 20 61 6e 64 20 68 |her....3|.0 and h|
|000036a0| 69 67 68 65 72 00 00 00 | 00 00 00 00 00 00 00 00 |igher...|........|
|000036b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036c0| 0d 00 00 00 50 61 67 65 | 44 62 43 6f 6e 6e 65 63 |....Page|DbConnec|
|000036d0| 74 0d 00 00 00 50 61 67 | 65 44 62 43 6f 6e 6e 65 |t....Pag|eDbConne|
|000036e0| 63 74 03 00 00 00 41 53 | 50 26 00 00 00 4f 70 65 |ct....AS|P&...Ope|
|000036f0| 6e 73 20 61 20 70 61 67 | 65 20 6c 65 76 65 6c 20 |ns a pag|e level |
|00003700| 64 61 74 61 62 61 73 65 | 20 63 6f 6e 6e 65 63 74 |database| connect|
|00003710| 69 6f 6e ea 02 00 00 27 | 3d 3d 3d 3d 3d 3d 3d 3d |ion....'|========|
|00003720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003760| 3d 3d 3d 0d 0a 27 20 50 | 52 4f 43 45 44 55 52 45 |===..' P|ROCEDURE|
|00003770| 3a 09 50 61 67 65 44 62 | 43 6f 6e 6e 65 63 74 20 |:.PageDb|Connect |
|00003780| 20 0d 0a 27 0d 0a 27 20 | 49 4e 50 55 54 3a 09 09 | ..'..' |INPUT:..|
|00003790| 09 64 62 20 28 6f 62 6a | 65 63 74 29 09 09 09 09 |.db (obj|ect)....|
|000037a0| 2d 20 74 68 65 20 64 61 | 74 61 62 61 73 65 20 63 |- the da|tabase c|
|000037b0| 6f 6e 6e 65 63 74 69 6f | 6e 20 6f 62 6a 65 63 74 |onnectio|n object|
|000037c0| 0d 0a 27 09 09 09 09 09 | 64 61 74 61 73 6f 75 72 |..'.....|datasour|
|000037d0| 63 65 20 28 73 74 72 69 | 6e 67 29 09 2d 20 74 68 |ce (stri|ng).- th|
|000037e0| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 64 61 |e name o|f the da|
|000037f0| 74 61 20 73 6f 75 72 63 | 65 20 75 73 65 64 20 74 |ta sourc|e used t|
|00003800| 6f 20 6d 61 6b 65 20 74 | 68 65 0d 0a 27 09 09 09 |o make t|he..'...|
|00003810| 09 09 09 09 09 09 20 20 | 09 09 09 20 20 63 6f 6e |......  |...  con|
|00003820| 6e 65 63 74 69 6f 6e 0d | 0a 27 09 09 09 09 09 75 |nection.|.'.....u|
|00003830| 73 65 72 6e 61 6d 65 09 | 20 28 73 74 72 69 6e 67 |sername.| (string|
|00003840| 29 09 2d 20 74 68 65 20 | 75 73 65 72 6e 61 6d 65 |).- the |username|
|00003850| 20 75 73 65 64 20 74 6f | 20 6c 6f 67 69 6e 20 74 | used to| login t|
|00003860| 6f 20 74 68 65 20 64 61 | 74 61 20 73 6f 75 72 63 |o the da|ta sourc|
|00003870| 65 0d 0a 27 09 09 09 09 | 09 70 61 73 73 77 6f 72 |e..'....|.passwor|
|00003880| 64 09 20 28 73 74 72 69 | 6e 67 29 09 2d 20 74 68 |d. (stri|ng).- th|
|00003890| 65 20 70 61 73 73 77 6f | 72 64 20 75 73 65 64 20 |e passwo|rd used |
|000038a0| 74 6f 20 6c 6f 67 69 6e | 20 74 6f 20 74 68 65 20 |to login| to the |
|000038b0| 64 61 74 61 20 73 6f 75 | 72 63 65 0d 0a 0d 0a 27 |data sou|rce....'|
|000038c0| 20 44 45 53 43 3a 09 09 | 09 54 68 69 73 20 70 72 | DESC:..|.This pr|
|000038d0| 6f 63 65 64 75 72 65 20 | 6f 70 65 6e 73 20 61 20 |ocedure |opens a |
|000038e0| 70 61 67 65 20 6c 65 76 | 65 6c 20 64 61 74 61 62 |page lev|el datab|
|000038f0| 61 73 65 20 63 6f 6e 6e | 65 63 74 69 6f 6e 0d 0a |ase conn|ection..|
|00003900| 27 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |'=======|========|
|00003910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 53 75 |========|====..Su|
|00003950| 62 20 50 61 67 65 44 62 | 43 6f 6e 6e 65 63 74 28 |b PageDb|Connect(|
|00003960| 64 62 2c 20 64 61 74 61 | 73 6f 75 72 63 65 2c 20 |db, data|source, |
|00003970| 75 73 65 72 6e 61 6d 65 | 2c 20 70 61 73 73 77 6f |username|, passwo|
|00003980| 72 64 29 0d 0a 09 27 20 | 43 6f 6e 6e 65 63 74 20 |rd)...' |Connect |
|00003990| 74 6f 20 64 61 74 61 62 | 61 73 65 20 0d 0a 09 53 |to datab|ase ...S|
|000039a0| 65 74 20 64 62 20 3d 20 | 53 65 72 76 65 72 2e 43 |et db = |Server.C|
|000039b0| 72 65 61 74 65 4f 62 6a | 65 63 74 28 22 41 44 4f |reateObj|ect("ADO|
|000039c0| 44 42 2e 43 6f 6e 6e 65 | 63 74 69 6f 6e 22 29 0d |DB.Conne|ction").|
|000039d0| 0a 09 64 62 2e 4f 70 65 | 6e 20 64 61 74 61 73 6f |..db.Ope|n dataso|
|000039e0| 75 72 63 65 2c 20 75 73 | 65 72 6e 61 6d 65 2c 20 |urce, us|ername, |
|000039f0| 70 61 73 73 77 6f 72 64 | 0d 0a 45 6e 64 20 53 75 |password|..End Su|
|00003a00| 62 0e 00 00 00 32 2e 30 | 20 61 6e 64 20 68 69 67 |b....2.0| and hig|
|00003a10| 68 65 72 0e 00 00 00 33 | 2e 30 20 61 6e 64 20 68 |her....3|.0 and h|
|00003a20| 69 67 68 65 72 00 00 00 | 00 00 00 00 00 00 00 00 |igher...|........|
|00003a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a40| 0b 00 00 00 52 61 6e 64 | 6f 6d 49 6d 61 67 65 0b |....Rand|omImage.|
|00003a50| 00 00 00 52 61 6e 64 6f | 6d 49 6d 61 67 65 03 00 |...Rando|mImage..|
|00003a60| 00 00 41 53 50 3a 00 00 | 00 46 75 6e 63 74 69 6f |..ASP:..|.Functio|
|00003a70| 6e 20 63 68 6f 6f 73 65 | 73 20 61 20 72 61 6e 64 |n choose|s a rand|
|00003a80| 6f 6d 20 69 6d 61 67 65 | 20 6f 75 74 20 6f 66 20 |om image| out of |
|00003a90| 61 6e 20 61 72 72 61 79 | 20 6f 66 20 69 6d 61 67 |an array| of imag|
|00003aa0| 65 73 2e fc 02 00 00 27 | 3d 3d 3d 3d 3d 3d 3d 3d |es.....'|========|
|00003ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ac0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ad0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ae0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003af0| 3d 3d 0d 0a 27 20 50 52 | 4f 43 45 44 55 52 45 3a |==..' PR|OCEDURE:|
|00003b00| 09 52 61 6e 64 6f 6d 49 | 6d 61 67 65 20 28 4c 69 |.RandomI|mage (Li|
|00003b10| 73 74 29 0d 0a 27 0d 0a | 27 20 49 4e 50 55 54 3a |st)..'..|' INPUT:|
|00003b20| 09 09 4c 69 73 74 20 2d | 2d 20 61 20 6c 69 73 74 |..List -|- a list|
|00003b30| 20 6f 66 20 61 72 72 61 | 79 73 20 63 6f 6e 74 61 | of arra|ys conta|
|00003b40| 69 6e 69 6e 67 20 69 6d | 61 67 65 20 66 69 6c 65 |ining im|age file|
|00003b50| 73 20 74 6f 20 63 68 6f | 6f 73 65 20 66 72 6f 6d |s to cho|ose from|
|00003b60| 2e 20 0d 0a 27 0d 0a 27 | 20 44 45 53 43 3a 09 09 |. ..'..'| DESC:..|
|00003b70| 20 20 20 20 54 68 69 73 | 20 66 75 6e 63 74 69 6f |    This| functio|
|00003b80| 6e 20 63 68 6f 6f 73 65 | 73 20 61 20 72 61 6e 64 |n choose|s a rand|
|00003b90| 6f 6d 20 69 6d 61 67 65 | 20 6f 75 74 20 6f 66 20 |om image| out of |
|00003ba0| 61 6e 20 61 72 72 61 79 | 20 6f 66 20 69 6d 61 67 |an array| of imag|
|00003bb0| 65 73 2e 20 20 0d 0a 27 | 09 09 09 49 74 20 69 73 |es.  ..'|...It is|
|00003bc0| 20 75 73 65 66 75 6c 20 | 77 68 65 6e 20 79 6f 75 | useful |when you|
|00003bd0| 20 77 61 6e 74 20 74 68 | 65 20 67 72 61 70 68 69 | want th|e graphi|
|00003be0| 63 73 20 6f 66 20 61 20 | 77 65 62 20 70 61 67 65 |cs of a |web page|
|00003bf0| 20 74 6f 20 63 68 61 6e | 67 65 0d 0a 27 09 09 09 | to chan|ge..'...|
|00003c00| 52 00 4f 00 4f 00 54 00 | 37 00 00 00 00 00 00 00 |R.O.O.T.|7.......|
|00003c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c40| 0c 00 01 01 08 00 00 00 | 16 00 00 00 11 00 00 00 |........|........|
|00003c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c60| 00 00 00 00 a0 23 7e ca | 9b ed bd 01 40 aa 7f ca |.....#~.|....@...|
|00003c70| 9b ed bd 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c80| 44 00 41 00 54 00 41 00 | 00 00 00 00 00 00 00 00 |D.A.T.A.|........|
|00003c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cc0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 00 00 a9 00 00 00 | 87 03 00 00 00 00 00 00 |........|........|
|00003d00| 52 00 4f 00 4f 00 54 00 | 38 00 00 00 00 00 00 00 |R.O.O.T.|8.......|
|00003d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d40| 0c 00 01 01 ff ff ff ff | ff ff ff ff 13 00 00 00 |........|........|
|00003d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d60| 00 00 00 00 40 aa 7f ca | 9b ed bd 01 40 aa 7f ca |....@...|....@...|
|00003d70| 9b ed bd 01 a0 77 bc 77 | 01 00 00 00 00 00 00 00 |.....w.w|........|
|00003d80| 44 00 41 00 54 00 41 00 | 00 00 00 00 01 00 00 00 |D.A.T.A.|........|
|00003d90| 48 3d 00 00 60 b7 bb 77 | 38 b7 bb 77 18 b7 bb 77 |H=..`..w|8..w...w|
|00003da0| 00 b7 bb 77 7d 00 00 00 | 00 00 00 00 50 3d 00 00 |...w}...|....P=..|
|00003db0| 00 00 00 00 30 00 00 00 | ff ff ff ff 46 6c 53 74 |....0...|....FlSt|
|00003dc0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00003dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003de0| a0 77 bc 77 00 00 00 00 | 00 00 00 00 00 00 00 00 |.w.w....|........|
|00003df0| 00 00 00 00 b8 00 00 00 | e1 02 00 00 01 00 00 00 |........|........|
|00003e00| 65 61 63 68 20 74 69 6d | 65 20 74 68 65 20 75 73 |each tim|e the us|
|00003e10| 65 72 20 72 65 66 72 65 | 73 68 65 73 20 61 20 70 |er refre|shes a p|
|00003e20| 61 67 65 2e 20 20 59 6f | 75 20 77 6f 75 6c 64 20 |age.  Yo|u would |
|00003e30| 75 73 65 20 74 68 69 73 | 20 66 75 6e 63 74 69 6f |use this| functio|
|00003e40| 6e 0d 0a 27 09 09 09 61 | 73 20 61 6e 20 69 6d 61 |n..'...a|s an ima|
|00003e50| 67 65 20 73 6f 75 72 63 | 65 20 61 73 20 73 6f 3a |ge sourc|e as so:|
|00003e60| 0d 0a 27 0d 0a 27 09 09 | 09 09 3c 69 6d 67 20 73 |..'..'..|..<img s|
|00003e70| 72 63 3d 20 3c 3d 52 61 | 6e 64 6f 6d 49 6d 61 67 |rc= <=Ra|ndomImag|
|00003e80| 65 28 4c 69 73 74 29 3e | 20 62 6f 72 64 65 72 3d |e(List)>| border=|
|00003e90| 30 3e 20 0d 0a 27 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |0> ..'==|========|
|00003ea0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003eb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ec0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ed0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0a |========|======..|
|00003ee0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 52 61 6e 64 6f |..functi|on Rando|
|00003ef0| 6d 49 6d 61 67 65 20 28 | 4c 69 73 74 29 0d 0a 0d |mImage (|List)...|
|00003f00| 0a 09 72 61 6e 64 6f 6d | 69 7a 65 20 74 69 6d 65 |..random|ize time|
|00003f10| 72 0d 0a 09 45 6c 65 6d | 65 6e 74 73 20 3d 20 55 |r...Elem|ents = U|
|00003f20| 62 6f 75 6e 64 28 4c 69 | 73 74 29 0d 0a 09 69 66 |bound(Li|st)...if|
|00003f30| 20 45 6c 65 6d 65 6e 74 | 73 20 3d 20 30 20 74 68 | Element|s = 0 th|
|00003f40| 65 6e 20 52 61 6e 64 6f | 6d 49 6d 61 67 65 20 3d |en Rando|mImage =|
|00003f50| 22 22 0d 0a 09 09 43 68 | 6f 69 63 65 20 3d 20 69 |""....Ch|oice = i|
|00003f60| 6e 74 28 45 6c 65 6d 65 | 6e 74 73 20 2a 20 72 6e |nt(Eleme|nts * rn|
|00003f70| 64 29 0d 0a 0d 0a 09 52 | 61 6e 64 6f 6d 49 6d 61 |d).....R|andomIma|
|00003f80| 67 65 20 3d 20 4c 69 73 | 74 28 43 68 6f 69 63 65 |ge = Lis|t(Choice|
|00003f90| 29 0d 0a 0d 0a 65 6e 64 | 20 66 75 6e 63 74 69 6f |)....end| functio|
|00003fa0| 6e 0d 0a 0e 00 00 00 32 | 2e 30 20 61 6e 64 20 68 |n......2|.0 and h|
|00003fb0| 69 67 68 65 72 0e 00 00 | 00 33 2e 30 20 61 6e 64 |igher...|.3.0 and|
|00003fc0| 20 68 69 67 68 65 72 00 | 00 00 00 00 00 00 00 00 | higher.|........|
|00003fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004000| 0a 00 00 00 52 65 61 64 | 43 6f 6f 6b 69 65 0a 00 |....Read|Cookie..|
|00004010| 00 00 52 65 61 64 43 6f | 6f 6b 69 65 03 00 00 00 |..ReadCo|okie....|
|00004020| 41 53 50 0e 00 00 00 52 | 65 61 64 73 20 61 20 63 |ASP....R|eads a c|
|00004030| 6f 6f 6b 69 65 84 02 00 | 00 27 3d 3d 3d 3d 3d 3d |ookie...|.'======|
|00004040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004080| 3d 3d 3d 3d 0d 0a 27 20 | 50 52 4f 43 45 44 55 52 |====..' |PROCEDUR|
|00004090| 45 3a 09 52 65 61 64 43 | 6f 6f 6b 69 65 28 43 6f |E:.ReadC|ookie(Co|
|000040a0| 6f 6b 69 65 2c 20 56 61 | 72 4e 61 6d 65 29 0d 0a |okie, Va|rName)..|
|000040b0| 27 0d 0a 27 0d 0a 27 20 | 49 4e 50 55 54 3a 09 09 |'..'..' |INPUT:..|
|000040c0| 43 6f 6f 6b 69 65 20 2d | 2d 20 74 68 65 20 6e 61 |Cookie -|- the na|
|000040d0| 6d 65 20 6f 66 20 74 68 | 65 20 63 6f 6f 6b 69 65 |me of th|e cookie|
|000040e0| 20 79 6f 75 20 77 69 73 | 68 20 74 6f 20 72 65 61 | you wis|h to rea|
|000040f0| 64 2e 20 0d 0a 27 09 09 | 09 09 56 61 72 4e 61 6d |d. ..'..|..VarNam|
|00004100| 65 20 2d 2d 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |e -- the| name of|
|00004110| 20 74 68 65 20 76 61 72 | 69 61 62 6c 65 20 79 6f | the var|iable yo|
|00004120| 75 20 77 69 73 68 20 74 | 6f 20 72 65 61 64 2e 20 |u wish t|o read. |
|00004130| 0d 0a 27 09 09 0d 0a 27 | 20 44 45 53 43 3a 09 09 |..'....'| DESC:..|
|00004140| 09 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 72 |.This fu|nction r|
|00004150| 65 61 64 73 20 74 68 65 | 20 64 65 73 69 72 65 64 |eads the| desired|
|00004160| 20 63 6f 6f 6b 69 65 20 | 61 6e 64 20 72 65 74 75 | cookie |and retu|
|00004170| 72 6e 73 20 74 68 65 20 | 72 65 73 75 6c 74 2e 0d |rns the |result..|
|00004180| 0a 27 09 09 09 09 49 66 | 20 74 68 65 20 63 6f 6f |.'....If| the coo|
|00004190| 6b 69 65 20 64 6f 65 73 | 20 6e 6f 74 20 65 78 69 |kie does| not exi|
|000041a0| 73 74 20 69 74 20 72 65 | 74 75 72 6e 73 20 22 44 |st it re|turns "D|
|000041b0| 4e 45 22 0d 0a 27 0d 0a | 27 3d 3d 3d 3d 3d 3d 3d |NE"..'..|'=======|
|000041c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004200| 3d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 52 65 |=....fun|ction Re|
|00004210| 61 64 43 6f 6f 6b 69 65 | 28 43 6f 6f 6b 69 65 2c |adCookie|(Cookie,|
|00004220| 20 56 61 72 4e 61 6d 65 | 29 0d 0a 09 09 47 65 74 | VarName|)....Get|
|00004230| 49 6e 66 6f 20 3d 20 72 | 65 71 75 65 73 74 2e 43 |Info = r|equest.C|
|00004240| 6f 6f 6b 69 65 73 28 43 | 6f 6f 6b 69 65 29 28 56 |ookies(C|ookie)(V|
|00004250| 61 72 4e 61 6d 65 29 0d | 0a 20 20 20 09 69 66 20 |arName).|.   .if |
|00004260| 47 65 74 49 6e 66 6f 20 | 3d 20 22 22 20 74 68 65 |GetInfo |= "" the|
|00004270| 6e 0d 0a 09 09 52 65 61 | 64 43 6f 6f 6b 69 65 20 |n....Rea|dCookie |
|00004280| 3d 20 22 44 4e 45 22 0d | 0a 09 65 6c 73 65 0d 0a |= "DNE".|..else..|
|00004290| 09 09 52 65 61 64 43 6f | 6f 6b 69 65 20 3d 20 47 |..ReadCo|okie = G|
|000042a0| 65 74 49 6e 66 6f 0d 0a | 09 65 6e 64 20 69 66 0d |etInfo..|.end if.|
|000042b0| 0a 65 6e 64 20 66 75 6e | 63 74 69 6f 6e 0e 00 00 |.end fun|ction...|
|000042c0| 00 32 2e 30 20 61 6e 64 | 20 68 69 67 68 65 72 0e |.2.0 and| higher.|
|000042d0| 00 00 00 33 2e 30 20 61 | 6e 64 20 68 69 67 68 65 |...3.0 a|nd highe|
|000042e0| 72 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |r.......|........|
|000042f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004300| 0a 00 00 00 52 65 70 6f | 72 74 48 69 74 73 0a 00 |....Repo|rtHits..|
|00004310| 00 00 52 65 70 6f 72 74 | 48 69 74 73 03 00 00 00 |..Report|Hits....|
|00004320| 41 53 50 46 00 00 00 53 | 75 62 72 6f 75 74 69 6e |ASPF...S|ubroutin|
|00004330| 65 20 72 65 70 6f 72 74 | 73 20 74 68 65 20 6e 75 |e report|s the nu|
|00004340| 6d 62 65 72 20 6f 66 20 | 74 69 6d 65 73 20 61 20 |mber of |times a |
|00004350| 70 61 72 74 69 63 75 6c | 61 72 20 70 61 67 65 20 |particul|ar page |
|00004360| 68 61 73 20 62 65 65 6e | 20 68 69 74 2e d5 03 00 |has been| hit....|
|00004370| 00 27 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.'======|========|
|00004380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000043a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000043b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 27 20 |========|====..' |
|000043c0| 50 52 4f 43 45 44 55 52 | 45 3a 09 52 65 70 6f 72 |PROCEDUR|E:.Repor|
|000043d0| 74 48 69 74 73 20 28 29 | 0d 0a 27 0d 0a 27 0d 0a |tHits ()|..'..'..|
|000043e0| 27 20 44 45 53 43 3a 09 | 09 20 20 20 20 54 68 69 |' DESC:.|.    Thi|
|000043f0| 73 20 73 75 62 72 6f 75 | 74 69 6e 65 20 72 65 70 |s subrou|tine rep|
|00004400| 52 00 4f 00 4f 00 54 00 | 39 00 00 00 00 00 00 00 |R.O.O.T.|9.......|
|00004410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004440| 0c 00 01 01 12 00 00 00 | 01 00 00 00 15 00 00 00 |........|........|
|00004450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004460| 00 00 00 00 40 aa 7f ca | 9b ed bd 01 40 aa 7f ca |....@...|....@...|
|00004470| 9b ed bd 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004480| 44 00 41 00 54 00 41 00 | 00 00 00 00 00 00 00 00 |D.A.T.A.|........|
|00004490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 c0 00 00 00 |........|........|
|000044c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000044d0| 00 00 00 00 00 00 00 00 | 70 00 00 00 01 00 00 00 |........|p.......|
|000044e0| 50 39 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |P9......|........|
|000044f0| 00 00 00 00 c4 00 00 00 | 6a 04 00 00 58 39 00 00 |........|j...X9..|
|00004500| 52 00 4f 00 4f 00 54 00 | 31 00 30 00 00 00 53 74 |R.O.O.T.|1.0...St|
|00004510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004530| a0 77 bc 77 00 00 00 00 | 00 00 00 00 00 00 00 00 |.w.w....|........|
|00004540| 0e 00 01 01 14 00 00 00 | 1a 00 00 00 17 00 00 00 |........|........|
|00004550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004560| 00 00 00 00 40 aa 7f ca | 9b ed bd 01 40 aa 7f ca |....@...|....@...|
|00004570| 9b ed bd 01 00 00 00 00 | 06 00 00 00 a0 77 bc 77 |........|.....w.w|
|00004580| 44 00 41 00 54 00 41 00 | 00 00 00 00 00 00 00 00 |D.A.T.A.|........|
|00004590| 98 00 00 00 01 00 00 00 | b8 1d 00 00 01 00 00 00 |........|........|
|000045a0| 40 02 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |@.......|........|
|000045b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045c0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000045d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045f0| 00 00 00 00 d6 00 00 00 | bc 03 00 00 00 00 00 00 |........|........|
|00004600| 6f 72 74 73 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |orts the| number |
|00004610| 6f 66 20 74 69 6d 65 73 | 20 61 20 70 61 72 74 69 |of times| a parti|
|00004620| 63 75 6c 61 72 20 70 61 | 67 65 0d 0a 27 09 09 09 |cular pa|ge..'...|
|00004630| 68 61 73 20 62 65 65 6e | 20 68 69 74 2e 20 20 50 |has been| hit.  P|
|00004640| 75 74 20 74 68 69 73 20 | 73 75 62 72 6f 75 74 69 |ut this |subrouti|
|00004650| 6e 65 20 61 74 20 74 68 | 65 20 74 6f 70 20 74 68 |ne at th|e top th|
|00004660| 65 20 6d 61 69 6e 20 70 | 61 67 65 20 0d 0a 27 09 |e main p|age ..'.|
|00004670| 09 09 6f 66 20 79 6f 75 | 72 20 77 65 62 73 69 74 |..of you|r websit|
|00004680| 65 2e 20 20 54 68 69 73 | 20 73 75 62 72 6f 75 74 |e.  This| subrout|
|00004690| 69 6e 65 20 6d 61 6b 65 | 73 20 75 73 65 20 6f 66 |ine make|s use of|
|000046a0| 20 61 6e 20 41 70 70 6c | 69 63 61 74 69 6f 6e 0d | an Appl|ication.|
|000046b0| 0a 27 09 09 09 76 61 72 | 69 61 62 6c 65 20 28 43 |.'...var|iable (C|
|000046c0| 6f 75 6e 74 65 72 29 20 | 74 6f 20 6b 65 65 70 20 |ounter) |to keep |
|000046d0| 74 72 61 63 6b 20 6f 66 | 20 74 68 65 20 6e 75 6d |track of| the num|
|000046e0| 62 65 72 20 6f 66 20 68 | 69 74 73 20 6f 6e 20 74 |ber of h|its on t|
|000046f0| 68 65 0d 0a 27 09 09 09 | 73 65 72 76 65 72 2e 20 |he..'...|server. |
|00004700| 20 0d 0a 27 0d 0a 27 09 | 09 09 09 3c 69 6d 67 20 | ..'..'.|...<img |
|00004710| 73 72 63 3d 20 3c 3d 52 | 61 6e 64 6f 6d 49 6d 61 |src= <=R|andomIma|
|00004720| 67 65 28 4c 69 73 74 29 | 3e 20 62 6f 72 64 65 72 |ge(List)|> border|
|00004730| 3d 30 3e 20 0d 0a 27 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=0> ..'=|========|
|00004740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004760| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004770| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00004780| 0a 73 75 62 20 52 65 70 | 6f 72 74 48 69 74 73 28 |.sub Rep|ortHits(|
|00004790| 29 20 09 0d 0a 09 09 27 | 4f 6e 6c 79 20 69 6e 63 |) .....'|Only inc|
|000047a0| 72 65 6d 65 6e 74 20 74 | 68 65 20 63 6f 75 6e 74 |rement t|he count|
|000047b0| 65 72 20 69 66 20 74 68 | 65 20 75 73 65 72 20 69 |er if th|e user i|
|000047c0| 73 20 65 6e 74 65 72 69 | 6e 67 20 61 20 0d 0a 09 |s enteri|ng a ...|
|000047d0| 27 6e 65 77 20 73 65 73 | 73 69 6f 6e 3a 0d 0a 09 |'new ses|sion:...|
|000047e0| 69 66 20 53 65 73 73 69 | 6f 6e 28 22 53 42 49 6e |if Sessi|on("SBIn|
|000047f0| 66 6f 22 29 20 3d 20 22 | 22 20 74 68 65 6e 0d 0a |fo") = "|" then..|
|00004800| 0d 0a 09 09 53 65 73 73 | 69 6f 6e 28 22 53 42 49 |....Sess|ion("SBI|
|00004810| 6e 66 6f 22 29 20 3d 20 | 31 0d 0a 09 09 09 41 70 |nfo") = |1.....Ap|
|00004820| 70 6c 69 63 61 74 69 6f | 6e 2e 55 6e 4c 6f 63 6b |plicatio|n.UnLock|
|00004830| 0d 0a 09 09 69 66 20 41 | 70 70 6c 69 63 61 74 69 |....if A|pplicati|
|00004840| 6f 6e 28 22 43 6f 75 6e | 74 65 72 22 29 20 3d 20 |on("Coun|ter") = |
|00004850| 22 22 20 74 68 65 6e 20 | 0d 0a 09 09 09 41 70 70 |"" then |.....App|
|00004860| 6c 69 63 61 74 69 6f 6e | 28 22 43 6f 75 6e 74 65 |lication|("Counte|
|00004870| 72 22 29 20 3d 20 31 0d | 0a 09 09 65 6c 73 65 0d |r") = 1.|...else.|
|00004880| 0a 09 09 09 41 70 70 6c | 69 63 61 74 69 6f 6e 28 |....Appl|ication(|
|00004890| 22 43 6f 75 6e 74 65 72 | 22 29 20 3d 20 41 70 70 |"Counter|") = App|
|000048a0| 6c 69 63 61 74 69 6f 6e | 28 22 43 6f 75 6e 74 65 |lication|("Counte|
|000048b0| 72 22 29 2b 31 0d 0a 09 | 09 65 6e 64 20 69 66 20 |r")+1...|.end if |
|000048c0| 0d 0a 09 09 0d 0a 09 09 | 41 70 70 6c 69 63 61 74 |........|Applicat|
|000048d0| 69 6f 6e 2e 4c 6f 63 6b | 0d 0a 0d 0a 09 65 6e 64 |ion.Lock|.....end|
|000048e0| 20 69 66 0d 0a 0d 0a 0d | 0a 09 72 65 73 70 6f 6e | if.....|..respon|
|000048f0| 73 65 2e 57 72 69 74 65 | 28 22 4e 75 6d 62 65 72 |se.Write|("Number|
|00004900| 20 6f 66 20 74 69 6d 65 | 73 20 74 68 69 73 20 73 | of time|s this s|
|00004910| 69 74 65 20 68 61 73 20 | 62 65 65 6e 20 68 69 74 |ite has |been hit|
|00004920| 3a 20 22 20 26 20 41 70 | 70 6c 69 63 61 74 69 6f |: " & Ap|plicatio|
|00004930| 6e 28 22 43 6f 75 6e 74 | 65 72 22 29 29 0d 0a 65 |n("Count|er"))..e|
|00004940| 6e 64 20 73 75 62 0e 00 | 00 00 32 2e 30 20 61 6e |nd sub..|..2.0 an|
|00004950| 64 20 68 69 67 68 65 72 | 0e 00 00 00 33 2e 30 20 |d higher|....3.0 |
|00004960| 61 6e 64 20 68 69 67 68 | 65 72 00 00 00 00 00 00 |and high|er......|
|00004970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004980| 16 00 00 00 53 65 74 53 | 65 73 73 69 6f 6e 44 62 |....SetS|essionDb|
|00004990| 50 72 6f 70 65 72 74 69 | 65 73 16 00 00 00 53 65 |Properti|es....Se|
|000049a0| 74 53 65 73 73 69 6f 6e | 44 62 50 72 6f 70 65 72 |tSession|DbProper|
|000049b0| 74 69 65 73 03 00 00 00 | 41 53 50 39 00 00 00 53 |ties....|ASP9...S|
|000049c0| 65 74 73 20 74 68 72 65 | 65 20 73 65 73 73 69 6f |ets thre|e sessio|
|000049d0| 6e 20 6f 62 6a 65 63 74 | 20 76 61 72 69 61 62 6c |n object| variabl|
|000049e0| 65 73 20 66 6f 72 20 64 | 61 74 61 62 61 73 65 20 |es for d|atabase |
|000049f0| 63 6f 6e 6e 65 63 74 73 | 1c 03 00 00 27 3d 3d 3d |connects|....'===|
|00004a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a40| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 27 20 50 52 4f 43 |========|..' PROC|
|00004a50| 45 44 55 52 45 3a 09 53 | 65 74 53 65 73 73 69 6f |EDURE:.S|etSessio|
|00004a60| 6e 44 62 50 72 6f 70 65 | 72 74 69 65 73 0d 0a 0d |nDbPrope|rties...|
|00004a70| 0a 27 20 49 4e 50 55 54 | 3a 09 09 09 64 61 74 61 |.' INPUT|:...data|
|00004a80| 73 6f 75 72 63 65 20 28 | 73 74 72 69 6e 67 29 09 |source (|string).|
|00004a90| 2d 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |- the na|me of th|
|00004aa0| 65 20 64 61 74 61 20 73 | 6f 75 72 63 65 20 75 73 |e data s|ource us|
|00004ab0| 65 64 20 74 6f 0d 0a 27 | 09 09 09 09 09 09 09 09 |ed to..'|........|
|00004ac0| 09 09 09 09 20 20 6d 61 | 6b 65 20 61 20 64 61 74 |....  ma|ke a dat|
|00004ad0| 61 62 61 73 65 20 63 6f | 6e 6e 65 63 74 69 6f 6e |abase co|nnection|
|00004ae0| 0d 0a 27 09 09 09 09 09 | 75 73 65 72 6e 61 6d 65 |..'.....|username|
|00004af0| 20 28 73 74 72 69 6e 67 | 29 09 09 2d 20 74 68 65 | (string|)..- the|
|00004b00| 20 75 73 65 72 6e 61 6d | 65 20 75 73 65 64 20 74 | usernam|e used t|
|00004b10| 6f 20 6c 6f 67 69 6e 20 | 74 6f 20 74 68 65 0d 0a |o login |to the..|
|00004b20| 27 09 09 09 09 09 09 09 | 09 09 09 09 09 20 20 64 |'.......|.....  d|
|00004b30| 61 74 61 20 73 6f 75 72 | 63 65 0d 0a 27 09 09 09 |ata sour|ce..'...|
|00004b40| 09 09 70 61 73 73 77 6f | 72 64 20 28 73 74 72 69 |..passwo|rd (stri|
|00004b50| 6e 67 29 09 09 2d 20 74 | 68 65 20 70 61 73 73 77 |ng)..- t|he passw|
|00004b60| 6f 72 64 20 75 73 65 64 | 20 74 6f 20 6c 6f 67 69 |ord used| to logi|
|00004b70| 6e 20 74 6f 20 74 68 65 | 0d 0a 27 09 09 09 09 09 |n to the|..'.....|
|00004b80| 09 09 09 09 09 09 09 20 | 20 64 61 74 61 20 73 6f |....... | data so|
|00004b90| 75 72 63 65 0d 0a 0d 0a | 27 20 44 45 53 43 3a 09 |urce....|' DESC:.|
|00004ba0| 09 09 54 68 69 73 20 70 | 72 6f 63 65 64 75 72 65 |..This p|rocedure|
|00004bb0| 20 73 65 74 73 20 74 68 | 72 65 65 20 73 65 73 73 | sets th|ree sess|
|00004bc0| 69 6f 6e 20 6f 62 6a 65 | 63 74 20 76 61 72 69 61 |ion obje|ct varia|
|00004bd0| 62 6c 65 73 20 75 73 65 | 64 20 66 6f 72 0d 0a 27 |bles use|d for..'|
|00004be0| 09 09 09 09 09 63 6f 6e | 6e 65 63 74 69 6e 67 20 |.....con|necting |
|00004bf0| 74 6f 20 61 20 64 61 74 | 61 62 61 73 65 0d 0a 27 |to a dat|abase..'|
|00004c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0a 53 75 62 |========|===..Sub|
|00004c50| 20 53 65 74 53 65 73 73 | 69 6f 6e 44 62 50 72 6f | SetSess|ionDbPro|
|00004c60| 70 65 72 74 69 65 73 28 | 64 61 74 61 73 6f 75 72 |perties(|datasour|
|00004c70| 63 65 2c 20 75 73 65 72 | 6e 61 6d 65 2c 20 70 61 |ce, user|name, pa|
|00004c80| 73 73 77 6f 72 64 29 0d | 0a 09 53 65 73 73 69 6f |ssword).|..Sessio|
|00004c90| 6e 28 22 55 73 65 72 4e | 61 6d 65 22 29 20 3d 20 |n("UserN|ame") = |
|00004ca0| 75 73 65 72 6e 61 6d 65 | 0d 0a 09 53 65 73 73 69 |username|...Sessi|
|00004cb0| 6f 6e 28 22 50 61 73 73 | 77 6f 72 64 22 29 20 3d |on("Pass|word") =|
|00004cc0| 20 70 61 73 73 77 6f 72 | 64 0d 0a 09 53 65 73 73 | passwor|d...Sess|
|00004cd0| 69 6f 6e 28 22 44 61 74 | 61 53 6f 75 72 63 65 22 |ion("Dat|aSource"|
|00004ce0| 29 20 3d 20 64 61 74 61 | 73 6f 75 72 63 65 20 0d |) = data|source .|
|00004cf0| 0a 45 6e 64 20 53 75 62 | 20 27 20 45 6e 64 20 6f |.End Sub| ' End o|
|00004d00| 66 20 53 65 74 53 65 73 | 73 69 6f 6e 44 62 50 72 |f SetSes|sionDbPr|
|00004d10| 6f 70 65 72 74 69 65 73 | 0e 00 00 00 32 2e 30 20 |operties|....2.0 |
|00004d20| 61 6e 64 20 68 69 67 68 | 65 72 0e 00 00 00 33 2e |and high|er....3.|
|00004d30| 30 20 61 6e 64 20 68 69 | 67 68 65 72 00 00 00 00 |0 and hi|gher....|
|00004d40| 0c 00 00 00 53 68 6f 77 | 53 51 4c 54 61 62 6c 65 |....Show|SQLTable|
|00004d50| 0c 00 00 00 53 68 6f 77 | 53 51 4c 54 61 62 6c 65 |....Show|SQLTable|
|00004d60| 03 00 00 00 41 53 50 2b | 00 00 00 44 69 73 70 6c |....ASP+|...Displ|
|00004d70| 61 79 73 20 61 20 72 65 | 73 75 6c 74 20 73 65 74 |ays a re|sult set|
|00004d80| 20 69 6e 20 61 20 53 45 | 4c 45 43 54 20 53 51 4c | in a SE|LECT SQL|
|00004d90| 20 71 75 65 72 79 ca 08 | 00 00 27 3d 3d 3d 3d 3d | query..|..'=====|
|00004da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004dc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004de0| 3d 3d 3d 3d 3d 3d 0d 0a | 27 20 50 52 4f 43 45 44 |======..|' PROCED|
|00004df0| 55 52 45 3a 09 53 68 6f | 77 53 51 4c 54 61 62 6c |URE:.Sho|wSQLTabl|
|00004e00| 52 00 4f 00 4f 00 54 00 | 31 00 31 00 00 00 00 00 |R.O.O.T.|1.1.....|
|00004e10| 05 06 00 00 06 06 00 00 | 07 06 00 00 08 06 00 00 |........|........|
|00004e20| 09 06 00 00 0a 06 00 00 | 0b 06 00 00 0c 06 00 00 |........|........|
|00004e30| 0d 06 00 00 0e 06 00 00 | 0f 06 00 00 10 06 00 00 |........|........|
|00004e40| 0e 00 01 01 ff ff ff ff | ff ff ff ff 19 00 00 00 |........|........|
|00004e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e60| 00 00 00 00 40 aa 7f ca | 9b ed bd 01 40 aa 7f ca |....@...|....@...|
|00004e70| 9b ed bd 01 1e 06 00 00 | 1f 06 00 00 20 06 00 00 |........|.... ...|
|00004e80| 44 00 41 00 54 00 41 00 | 00 00 00 00 24 06 00 00 |D.A.T.A.|....$...|
|00004e90| 25 06 00 00 26 06 00 00 | 27 06 00 00 28 06 00 00 |%...&...|'...(...|
|00004ea0| 29 06 00 00 2a 06 00 00 | 2b 06 00 00 fe ff ff ff |)...*...|+.......|
|00004eb0| 2d 06 00 00 2e 06 00 00 | 2f 06 00 00 30 06 00 00 |-.......|/...0...|
|00004ec0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004ed0| 35 06 00 00 fe ff ff ff | 37 06 00 00 38 06 00 00 |5.......|7...8...|
|00004ee0| 39 06 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9.......|........|
|00004ef0| 00 00 00 00 e5 00 00 00 | 48 09 00 00 40 06 00 00 |........|H...@...|
|00004f00| 52 00 4f 00 4f 00 54 00 | 31 00 32 00 00 00 00 00 |R.O.O.T.|1.2.....|
|00004f10| 45 06 00 00 46 06 00 00 | 47 06 00 00 48 06 00 00 |E...F...|G...H...|
|00004f20| 49 06 00 00 4a 06 00 00 | 4b 06 00 00 4c 06 00 00 |I...J...|K...L...|
|00004f30| 4d 06 00 00 4e 06 00 00 | 4f 06 00 00 50 06 00 00 |M...N...|O...P...|
|00004f40| 0e 00 01 01 18 00 00 00 | 1c 00 00 00 1b 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f60| 00 00 00 00 40 aa 7f ca | 9b ed bd 01 e0 30 81 ca |....@...|.....0..|
|00004f70| 9b ed bd 01 5e 06 00 00 | 5f 06 00 00 60 06 00 00 |....^...|_...`...|
|00004f80| 44 00 41 00 54 00 41 00 | 00 00 00 00 64 06 00 00 |D.A.T.A.|....d...|
|00004f90| 65 06 00 00 66 06 00 00 | 67 06 00 00 68 06 00 00 |e...f...|g...h...|
|00004fa0| 69 06 00 00 fe ff ff ff | 6b 06 00 00 6c 06 00 00 |i.......|k...l...|
|00004fb0| 6d 06 00 00 6e 06 00 00 | 6f 06 00 00 70 06 00 00 |m...n...|o...p...|
|00004fc0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004fd0| 75 06 00 00 76 06 00 00 | 77 06 00 00 78 06 00 00 |u...v...|w...x...|
|00004fe0| 79 06 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |y.......|........|
|00004ff0| 00 00 00 00 0b 01 00 00 | 12 03 00 00 80 06 00 00 |........|........|
|00005000| 01 01 00 00 02 01 00 00 | 03 01 00 00 04 01 00 00 |........|........|
|00005010| 05 01 00 00 06 01 00 00 | 07 01 00 00 08 01 00 00 |........|........|
|00005020| 09 01 00 00 0a 01 00 00 | fe ff ff ff 0c 01 00 00 |........|........|
|00005030| 0d 01 00 00 0e 01 00 00 | 0f 01 00 00 10 01 00 00 |........|........|
|00005040| 11 01 00 00 12 01 00 00 | 13 01 00 00 14 01 00 00 |........|........|
|00005050| 15 01 00 00 16 01 00 00 | 17 01 00 00 fe ff ff ff |........|........|
|00005060| 19 01 00 00 1a 01 00 00 | 1b 01 00 00 1c 01 00 00 |........|........|
|00005070| 1d 01 00 00 1e 01 00 00 | 1f 01 00 00 20 01 00 00 |........|.... ...|
|00005080| 21 01 00 00 22 01 00 00 | 23 01 00 00 24 01 00 00 |!..."...|#...$...|
|00005090| 25 01 00 00 26 01 00 00 | 27 01 00 00 28 01 00 00 |%...&...|'...(...|
|000050a0| fe ff ff ff 2a 01 00 00 | 2b 01 00 00 2c 01 00 00 |....*...|+...,...|
|000050b0| 2d 01 00 00 2e 01 00 00 | 2f 01 00 00 30 01 00 00 |-.......|/...0...|
|000050c0| 31 01 00 00 32 01 00 00 | 33 01 00 00 34 01 00 00 |1...2...|3...4...|
|000050d0| 35 01 00 00 36 01 00 00 | 37 01 00 00 fe ff ff ff |5...6...|7.......|
|000050e0| 39 01 00 00 3a 01 00 00 | 3b 01 00 00 3c 01 00 00 |9...:...|;...<...|
|000050f0| 3d 01 00 00 3e 01 00 00 | 3f 01 00 00 40 01 00 00 |=...>...|?...@...|
|00005100| 41 01 00 00 42 01 00 00 | 43 01 00 00 44 01 00 00 |A...B...|C...D...|
|00005110| 45 01 00 00 46 01 00 00 | 47 01 00 00 48 01 00 00 |E...F...|G...H...|
|00005120| 49 01 00 00 4a 01 00 00 | fe ff ff ff 4c 01 00 00 |I...J...|....L...|
|00005130| 4d 01 00 00 4e 01 00 00 | 4f 01 00 00 50 01 00 00 |M...N...|O...P...|
|00005140| 51 01 00 00 52 01 00 00 | 53 01 00 00 54 01 00 00 |Q...R...|S...T...|
|00005150| 55 01 00 00 56 01 00 00 | 57 01 00 00 58 01 00 00 |U...V...|W...X...|
|00005160| 59 01 00 00 5a 01 00 00 | 5b 01 00 00 5c 01 00 00 |Y...Z...|[...\...|
|00005170| fe ff ff ff 5e 01 00 00 | 5f 01 00 00 60 01 00 00 |....^...|_...`...|
|00005180| 61 01 00 00 62 01 00 00 | 63 01 00 00 64 01 00 00 |a...b...|c...d...|
|00005190| 65 01 00 00 66 01 00 00 | 67 01 00 00 68 01 00 00 |e...f...|g...h...|
|000051a0| 69 01 00 00 6a 01 00 00 | 6b 01 00 00 6c 01 00 00 |i...j...|k...l...|
|000051b0| 6d 01 00 00 6e 01 00 00 | 6f 01 00 00 70 01 00 00 |m...n...|o...p...|
|000051c0| 71 01 00 00 72 01 00 00 | 73 01 00 00 74 01 00 00 |q...r...|s...t...|
|000051d0| 75 01 00 00 76 01 00 00 | 77 01 00 00 78 01 00 00 |u...v...|w...x...|
|000051e0| 79 01 00 00 7a 01 00 00 | 7b 01 00 00 7c 01 00 00 |y...z...|{...|...|
|000051f0| 7d 01 00 00 7e 01 00 00 | 7f 01 00 00 80 01 00 00 |}...~...|........|
|00005200| 65 0d 0a 0d 0a 27 20 49 | 4e 50 55 54 3a 09 09 09 |e....' I|NPUT:...|
|00005210| 64 62 20 28 6f 62 6a 65 | 63 74 29 09 09 09 09 2d |db (obje|ct)....-|
|00005220| 20 61 6e 20 6f 70 65 6e | 65 64 20 64 61 74 61 62 | an open|ed datab|
|00005230| 61 73 65 20 63 6f 6e 6e | 65 63 74 69 6f 6e 20 6f |ase conn|ection o|
|00005240| 62 6a 65 63 74 0d 0a 27 | 09 09 09 09 09 73 71 6c |bject..'|.....sql|
|00005250| 20 28 73 74 72 69 6e 67 | 29 09 09 09 2d 20 74 68 | (string|)...- th|
|00005260| 65 20 53 51 4c 20 71 75 | 65 72 79 20 73 74 72 69 |e SQL qu|ery stri|
|00005270| 6e 67 20 75 73 65 64 20 | 74 6f 20 6f 70 65 6e 20 |ng used |to open |
|00005280| 74 68 65 0d 0a 27 09 09 | 09 09 09 09 09 09 09 09 |the..'..|........|
|00005290| 09 09 20 20 72 65 63 6f | 72 64 20 73 65 74 0d 0a |..  reco|rd set..|
|000052a0| 27 09 09 09 09 09 74 62 | 6c 62 6f 72 64 65 72 20 |'.....tb|lborder |
|000052b0| 28 6e 75 6d 62 65 72 29 | 09 2d 20 74 68 65 20 48 |(number)|.- the H|
|000052c0| 54 4d 4c 20 74 61 62 6c | 65 20 62 6f 72 64 65 72 |TML tabl|e border|
|000052d0| 20 76 61 6c 75 65 0d 0a | 27 09 09 09 09 09 74 62 | value..|'.....tb|
|000052e0| 6c 77 69 64 74 68 20 28 | 73 74 72 69 6e 67 29 09 |lwidth (|string).|
|000052f0| 09 2d 20 74 68 65 20 48 | 54 4d 4c 20 74 61 62 6c |.- the H|TML tabl|
|00005300| 65 20 77 69 64 74 68 20 | 76 61 6c 75 65 0d 0a 27 |e width |value..'|
|00005310| 09 09 09 09 09 63 65 6c | 6c 70 61 64 64 69 6e 67 |.....cel|lpadding|
|00005320| 20 28 6e 75 6d 62 65 72 | 29 09 2d 20 74 68 65 20 | (number|).- the |
|00005330| 48 54 4d 4c 20 74 61 62 | 6c 65 20 63 65 6c 6c 70 |HTML tab|le cellp|
|00005340| 61 64 64 69 6e 67 20 76 | 61 6c 75 65 0d 0a 27 09 |adding v|alue..'.|
|00005350| 09 09 09 09 63 65 6c 6c | 73 70 61 63 69 6e 67 20 |....cell|spacing |
|00005360| 28 6e 75 6d 62 65 72 29 | 09 2d 20 74 68 65 20 48 |(number)|.- the H|
|00005370| 54 4d 4c 20 74 61 62 6c | 65 20 63 65 6c 6c 73 70 |TML tabl|e cellsp|
|00005380| 61 63 69 6e 67 20 76 61 | 6c 75 65 0d 0a 0d 0a 27 |acing va|lue....'|
|00005390| 20 44 45 53 43 3a 09 09 | 09 54 68 69 73 20 70 72 | DESC:..|.This pr|
|000053a0| 6f 63 65 64 75 72 65 20 | 70 65 72 66 6f 72 6d 73 |ocedure |performs|
|000053b0| 20 61 20 53 45 4c 45 43 | 54 20 53 51 4c 20 71 75 | a SELEC|T SQL qu|
|000053c0| 65 72 79 20 61 6e 64 20 | 64 69 73 70 6c 61 79 73 |ery and |displays|
|000053d0| 20 74 68 65 0d 0a 27 09 | 09 09 09 09 72 65 73 75 | the..'.|....resu|
|000053e0| 6c 74 20 73 65 74 20 69 | 6e 20 61 6e 20 48 54 4d |lt set i|n an HTM|
|000053f0| 4c 20 74 61 62 6c 65 0d | 0a 27 3d 3d 3d 3d 3d 3d |L table.|.'======|
|00005400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005440| 3d 3d 3d 3d 3d 3d 0d 0a | 53 75 62 20 53 68 6f 77 |======..|Sub Show|
|00005450| 53 51 4c 54 61 62 6c 65 | 28 64 62 2c 20 73 71 6c |SQLTable|(db, sql|
|00005460| 2c 20 74 62 6c 62 6f 72 | 64 65 72 2c 20 74 62 6c |, tblbor|der, tbl|
|00005470| 77 69 64 74 68 2c 20 63 | 65 6c 6c 70 61 64 64 69 |width, c|ellpaddi|
|00005480| 6e 67 2c 20 63 65 6c 6c | 73 70 61 63 69 6e 67 29 |ng, cell|spacing)|
|00005490| 0d 0a 09 44 69 6d 20 72 | 73 2c 20 61 6c 69 67 6e |...Dim r|s, align|
|000054a0| 2c 20 6e 75 6d 66 69 65 | 6c 64 73 2c 20 69 2c 20 |, numfie|lds, i, |
|000054b0| 73 74 72 0d 0a 09 09 53 | 65 74 20 72 73 20 3d 20 |str....S|et rs = |
|000054c0| 64 62 2e 45 78 65 63 75 | 74 65 28 73 71 6c 29 0d |db.Execu|te(sql).|
|000054d0| 0a 0d 0a 09 49 66 20 4e | 6f 74 20 72 73 2e 45 4f |....If N|ot rs.EO|
|000054e0| 46 20 54 68 65 6e 0d 0a | 09 09 6e 75 6d 66 69 65 |F Then..|..numfie|
|000054f0| 6c 64 73 20 3d 20 72 73 | 2e 46 69 65 6c 64 73 2e |lds = rs|.Fields.|
|00005500| 43 6f 75 6e 74 0d 0a 09 | 09 0d 0a 09 09 27 20 42 |Count...|.....' B|
|00005510| 65 67 69 6e 20 74 61 62 | 6c 65 0d 0a 09 09 73 74 |egin tab|le....st|
|00005520| 72 20 3d 20 22 3c 74 61 | 62 6c 65 20 62 6f 72 64 |r = "<ta|ble bord|
|00005530| 65 72 3d 22 20 26 20 43 | 68 72 28 33 34 29 20 26 |er=" & C|hr(34) &|
|00005540| 20 74 62 6c 62 6f 72 64 | 65 72 20 20 26 20 43 68 | tblbord|er  & Ch|
|00005550| 72 28 33 34 29 20 26 20 | 22 20 63 65 6c 6c 70 61 |r(34) & |" cellpa|
|00005560| 64 64 69 6e 67 3d 22 20 | 26 20 43 68 72 28 33 34 |dding=" |& Chr(34|
|00005570| 29 0d 0a 09 09 73 74 72 | 20 3d 20 73 74 72 20 26 |)....str| = str &|
|00005580| 20 63 65 6c 6c 70 61 64 | 64 69 6e 67 20 26 20 43 | cellpad|ding & C|
|00005590| 68 72 28 33 34 29 20 26 | 20 22 20 63 65 6c 6c 73 |hr(34) &| " cells|
|000055a0| 70 61 63 69 6e 67 3d 22 | 20 26 20 43 68 72 28 33 |pacing="| & Chr(3|
|000055b0| 34 29 20 26 20 63 65 6c | 6c 73 70 61 63 69 6e 67 |4) & cel|lspacing|
|000055c0| 20 26 20 43 68 72 28 33 | 34 29 0d 0a 09 09 73 74 | & Chr(3|4)....st|
|000055d0| 72 20 3d 20 73 74 72 20 | 26 20 22 20 77 69 64 74 |r = str |& " widt|
|000055e0| 68 3d 22 20 26 20 43 68 | 72 28 33 34 29 20 26 20 |h=" & Ch|r(34) & |
|000055f0| 74 62 6c 77 69 64 74 68 | 20 26 20 43 68 72 28 33 |tblwidth| & Chr(3|
|00005600| 34 29 20 26 20 22 3e 3c | 74 72 3e 22 0d 0a 09 09 |4) & "><|tr>"....|
|00005610| 52 65 73 70 6f 6e 73 65 | 2e 57 72 69 74 65 20 73 |Response|.Write s|
|00005620| 74 72 0d 0a 09 09 0d 0a | 09 09 27 20 44 69 73 70 |tr......|..' Disp|
|00005630| 6c 61 79 20 74 68 65 20 | 66 69 65 6c 64 20 6e 61 |lay the |field na|
|00005640| 6d 65 73 20 61 73 20 63 | 6f 6c 75 6d 6e 20 68 65 |mes as c|olumn he|
|00005650| 61 64 65 72 73 2e 20 41 | 6c 69 67 6e 20 63 6f 6c |aders. A|lign col|
|00005660| 75 6d 6e 20 68 65 61 64 | 65 72 73 20 77 69 74 68 |umn head|ers with|
|00005670| 20 6e 75 6d 65 72 69 63 | 20 0d 0a 09 09 27 20 66 | numeric| ....' f|
|00005680| 69 65 6c 64 20 76 61 6c | 75 65 73 20 74 6f 20 74 |ield val|ues to t|
|00005690| 68 65 20 72 69 67 68 74 | 20 61 6e 64 20 61 6c 6c |he right| and all|
|000056a0| 20 6f 74 68 65 72 73 20 | 74 6f 20 74 68 65 20 6c | others |to the l|
|000056b0| 65 66 74 2e 0d 0a 09 09 | 46 6f 72 20 69 20 3d 20 |eft.....|For i = |
|000056c0| 30 20 74 6f 20 6e 75 6d | 66 69 65 6c 64 73 20 2d |0 to num|fields -|
|000056d0| 20 31 0d 0a 09 09 09 49 | 66 20 49 73 4e 75 6d 65 | 1.....I|f IsNume|
|000056e0| 72 69 63 28 72 73 2e 46 | 69 65 6c 64 73 28 69 29 |ric(rs.F|ields(i)|
|000056f0| 2e 56 61 6c 75 65 29 20 | 54 68 65 6e 0d 0a 09 09 |.Value) |Then....|
|00005700| 09 09 61 6c 69 67 6e 20 | 3d 20 22 72 69 67 68 74 |..align |= "right|
|00005710| 22 0d 0a 09 09 09 45 6c | 73 65 0d 0a 09 09 09 09 |".....El|se......|
|00005720| 61 6c 69 67 6e 20 3d 20 | 22 6c 65 66 74 22 0d 0a |align = |"left"..|
|00005730| 09 09 09 45 6e 64 20 49 | 66 0d 0a 09 09 09 0d 0a |...End I|f.......|
|00005740| 09 09 09 73 74 72 20 3d | 20 22 3c 74 64 20 61 6c |...str =| "<td al|
|00005750| 69 67 6e 3d 22 20 26 20 | 43 68 72 28 33 34 29 20 |ign=" & |Chr(34) |
|00005760| 26 20 61 6c 69 67 6e 20 | 26 20 43 68 72 28 33 34 |& align |& Chr(34|
|00005770| 29 20 26 20 22 3e 3c 73 | 74 72 6f 6e 67 3e 22 0d |) & "><s|trong>".|
|00005780| 0a 09 09 09 73 74 72 20 | 3d 20 73 74 72 20 26 20 |....str |= str & |
|00005790| 72 73 2e 46 69 65 6c 64 | 73 28 69 29 2e 4e 61 6d |rs.Field|s(i).Nam|
|000057a0| 65 20 26 20 22 3c 2f 73 | 74 72 6f 6e 67 3e 3c 2f |e & "</s|trong></|
|000057b0| 74 64 3e 22 0d 0a 09 09 | 09 52 65 73 70 6f 6e 73 |td>"....|.Respons|
|000057c0| 65 2e 57 72 69 74 65 20 | 73 74 72 0d 0a 09 09 09 |e.Write |str.....|
|000057d0| 0d 0a 09 09 4e 65 78 74 | 0d 0a 09 09 09 0d 0a 09 |....Next|........|
|000057e0| 09 52 65 73 70 6f 6e 73 | 65 2e 57 72 69 74 65 20 |.Respons|e.Write |
|000057f0| 22 3c 2f 74 72 3e 22 0d | 0a 09 09 09 0d 0a 09 09 |"</tr>".|........|
|00005800| 27 20 44 69 73 70 6c 61 | 79 20 61 6c 6c 20 66 69 |' Displa|y all fi|
|00005810| 65 6c 64 20 76 61 6c 75 | 65 73 20 61 6c 69 67 6e |eld valu|es align|
|00005820| 69 6e 67 20 6e 75 6d 65 | 72 69 63 20 76 61 6c 75 |ing nume|ric valu|
|00005830| 65 73 20 74 6f 20 74 68 | 65 20 72 69 67 68 74 20 |es to th|e right |
|00005840| 61 6e 64 20 61 6c 6c 20 | 0d 0a 09 09 27 20 6f 74 |and all |....' ot|
|00005850| 68 65 72 73 20 74 6f 20 | 74 68 65 20 6c 65 66 74 |hers to |the left|
|00005860| 2e 0d 0a 09 09 44 6f 20 | 55 6e 74 69 6c 20 72 73 |.....Do |Until rs|
|00005870| 2e 45 4f 46 09 09 09 0d | 0a 09 09 09 52 65 73 70 |.EOF....|....Resp|
|00005880| 6f 6e 73 65 2e 57 72 69 | 74 65 20 22 3c 74 72 3e |onse.Wri|te "<tr>|
|00005890| 22 0d 0a 09 09 09 09 09 | 09 09 09 0d 0a 09 09 09 |".......|........|
|000058a0| 46 6f 72 20 69 20 3d 20 | 30 20 74 6f 20 6e 75 6d |For i = |0 to num|
|000058b0| 66 69 65 6c 64 73 20 2d | 20 31 0d 0a 09 09 09 09 |fields -| 1......|
|000058c0| 49 66 20 49 73 4e 75 6d | 65 72 69 63 28 72 73 2e |If IsNum|eric(rs.|
|000058d0| 46 69 65 6c 64 73 28 69 | 29 2e 56 61 6c 75 65 29 |Fields(i|).Value)|
|000058e0| 20 54 68 65 6e 0d 0a 09 | 09 09 09 09 61 6c 69 67 | Then...|....alig|
|000058f0| 6e 20 3d 20 22 72 69 67 | 68 74 22 0d 0a 09 09 09 |n = "rig|ht".....|
|00005900| 09 45 6c 73 65 0d 0a 09 | 09 09 09 09 61 6c 69 67 |.Else...|....alig|
|00005910| 6e 20 3d 20 22 6c 65 66 | 74 22 0d 0a 09 09 09 09 |n = "lef|t"......|
|00005920| 45 6e 64 20 49 66 0d 0a | 09 09 09 09 0d 0a 09 09 |End If..|........|
|00005930| 09 09 73 74 72 20 3d 20 | 22 3c 74 64 20 61 6c 69 |..str = |"<td ali|
|00005940| 67 6e 3d 22 20 26 20 43 | 68 72 28 33 34 29 20 26 |gn=" & C|hr(34) &|
|00005950| 20 61 6c 69 67 6e 20 26 | 20 43 68 72 28 33 34 29 | align &| Chr(34)|
|00005960| 20 26 20 22 3e 22 0d 0a | 09 09 09 09 73 74 72 20 | & ">"..|....str |
|00005970| 3d 20 73 74 72 20 26 20 | 72 73 2e 46 69 65 6c 64 |= str & |rs.Field|
|00005980| 73 28 69 29 2e 56 61 6c | 75 65 20 26 20 22 3c 2f |s(i).Val|ue & "</|
|00005990| 74 64 3e 22 0d 0a 09 09 | 09 09 52 65 73 70 6f 6e |td>"....|..Respon|
|000059a0| 73 65 2e 57 72 69 74 65 | 20 73 74 72 0d 0a 09 09 |se.Write| str....|
|000059b0| 09 4e 65 78 74 0d 0a 09 | 09 09 09 52 65 73 70 6f |.Next...|...Respo|
|000059c0| 6e 73 65 2e 57 72 69 74 | 65 20 22 3c 2f 74 72 3e |nse.Writ|e "</tr>|
|000059d0| 22 0d 0a 09 09 09 09 0d | 0a 09 09 09 72 73 2e 4d |".......|....rs.M|
|000059e0| 6f 76 65 4e 65 78 74 0d | 0a 09 09 4c 6f 6f 70 0d |oveNext.|...Loop.|
|000059f0| 0a 09 45 6e 64 20 49 66 | 0d 0a 09 09 72 73 2e 43 |..End If|....rs.C|
|00005a00| 6c 6f 73 65 0d 0a 09 53 | 65 74 20 72 73 20 3d 20 |lose...S|et rs = |
|00005a10| 4e 6f 74 68 69 6e 67 0d | 0a 09 0d 0a 09 27 20 45 |Nothing.|.....' E|
|00005a20| 6e 64 20 74 61 62 6c 65 | 0d 0a 09 52 65 73 70 6f |nd table|...Respo|
|00005a30| 6e 73 65 2e 57 72 69 74 | 65 20 22 3c 2f 74 61 62 |nse.Writ|e "</tab|
|00005a40| 6c 65 3e 22 0d 0a 45 6e | 64 20 53 75 62 20 27 20 |le>"..En|d Sub ' |
|00005a50| 45 6e 64 20 6f 66 20 53 | 68 6f 77 53 51 4c 54 61 |End of S|howSQLTa|
|00005a60| 62 6c 65 20 0e 00 00 00 | 32 2e 30 20 61 6e 64 20 |ble ....|2.0 and |
|00005a70| 68 69 67 68 65 72 0e 00 | 00 00 33 2e 30 20 61 6e |higher..|..3.0 an|
|00005a80| 64 20 68 69 67 68 65 72 | 00 00 00 00 00 00 00 00 |d higher|........|
|00005a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ac0| 0b 00 00 00 57 72 69 74 | 65 43 6f 6f 6b 69 65 0b |....Writ|eCookie.|
|00005ad0| 00 00 00 57 72 69 74 65 | 43 6f 6f 6b 69 65 03 00 |...Write|Cookie..|
|00005ae0| 00 00 41 53 50 0f 00 00 | 00 57 72 69 74 65 73 20 |..ASP...|.Writes |
|00005af0| 61 20 63 6f 6f 6b 69 65 | b2 02 00 00 27 3d 3d 3d |a cookie|....'===|
|00005b00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005b40| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 27 20 50 52 4f 43 45 |=======.|.' PROCE|
|00005b50| 44 55 52 45 3a 09 57 72 | 69 74 65 43 6f 6f 6b 69 |DURE:.Wr|iteCooki|
|00005b60| 65 28 43 6f 6f 6b 69 65 | 2c 20 56 61 72 4e 61 6d |e(Cookie|, VarNam|
|00005b70| 65 2c 20 56 61 6c 75 65 | 29 0d 0a 27 0d 0a 27 0d |e, Value|)..'..'.|
|00005b80| 0a 27 20 49 4e 50 55 54 | 3a 09 09 43 6f 6f 6b 69 |.' INPUT|:..Cooki|
|00005b90| 65 20 2d 2d 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |e -- the| name of|
|00005ba0| 20 74 68 65 20 63 6f 6f | 6b 69 65 20 79 6f 75 20 | the coo|kie you |
|00005bb0| 77 69 73 68 20 74 6f 20 | 77 72 69 74 65 2e 20 0d |wish to |write. .|
|00005bc0| 0a 27 09 09 09 09 56 61 | 72 4e 61 6d 65 20 2d 2d |.'....Va|rName --|
|00005bd0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00005be0| 20 76 61 72 69 61 62 6c | 65 20 79 6f 75 20 77 69 | variabl|e you wi|
|00005bf0| 73 68 20 74 6f 20 77 72 | 69 74 65 2e 20 0d 0a 27 |sh to wr|ite. ..'|
|00005c00| 09 09 09 09 56 61 6c 75 | 65 20 2d 2d 20 74 68 65 |....Valu|e -- the|
|00005c10| 20 76 61 6c 75 65 20 79 | 6f 75 20 77 69 73 68 20 | value y|ou wish |
|00005c20| 74 6f 20 77 72 69 74 65 | 20 74 6f 20 74 68 65 20 |to write| to the |
|00005c30| 63 6f 6f 6b 69 65 2e 20 | 0d 0a 27 09 09 09 09 45 |cookie. |..'....E|
|00005c40| 78 70 69 72 79 20 2d 2d | 20 74 68 65 20 65 78 70 |xpiry --| the exp|
|00005c50| 69 72 79 20 64 61 74 65 | 20 6f 66 20 74 68 65 20 |iry date| of the |
|00005c60| 63 6f 6f 6b 69 65 2e 20 | 0d 0a 27 09 09 0d 0a 27 |cookie. |..'....'|
|00005c70| 20 44 45 53 43 3a 09 09 | 09 54 68 69 73 20 66 75 | DESC:..|.This fu|
|00005c80| 6e 63 74 69 6f 6e 20 77 | 72 69 74 65 73 20 74 68 |nction w|rites th|
|00005c90| 65 20 64 65 73 69 72 65 | 64 20 63 6f 6f 6b 69 65 |e desire|d cookie|
|00005ca0| 20 61 63 63 6f 72 64 69 | 6e 67 20 74 6f 20 74 68 | accordi|ng to th|
|00005cb0| 65 20 76 61 6c 75 65 0d | 0a 27 09 09 09 09 69 74 |e value.|.'....it|
|00005cc0| 20 69 73 20 67 69 76 65 | 6e 2e 20 0d 0a 27 0d 0a | is give|n. ..'..|
|00005cd0| 27 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |'=======|========|
|00005ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 0d 0a 73 75 62 |========|=....sub|
|00005d20| 20 57 72 69 74 65 43 6f | 6f 6b 69 65 28 43 6f 6f | WriteCo|okie(Coo|
|00005d30| 6b 69 65 2c 20 56 61 72 | 4e 61 6d 65 2c 20 56 61 |kie, Var|Name, Va|
|00005d40| 6c 75 65 2c 20 45 78 70 | 69 72 79 29 0d 0a 09 72 |lue, Exp|iry)...r|
|00005d50| 65 73 70 6f 6e 73 65 2e | 43 6f 6f 6b 69 65 73 28 |esponse.|Cookies(|
|00005d60| 43 6f 6f 6b 69 65 29 28 | 56 61 72 4e 61 6d 65 29 |Cookie)(|VarName)|
|00005d70| 20 3d 20 56 61 6c 75 65 | 0d 0a 09 72 65 73 70 6f | = Value|...respo|
|00005d80| 6e 73 65 2e 43 6f 6f 6b | 69 65 73 28 43 6f 6f 6b |nse.Cook|ies(Cook|
|00005d90| 69 65 29 2e 45 78 70 69 | 72 65 73 20 3d 20 45 78 |ie).Expi|res = Ex|
|00005da0| 70 69 72 79 0d 0a 65 6e | 64 20 73 75 62 20 0e 00 |piry..en|d sub ..|
|00005db0| 00 00 32 2e 30 20 61 6e | 64 20 68 69 67 68 65 72 |..2.0 an|d higher|
|00005dc0| 0e 00 00 00 33 2e 30 20 | 61 6e 64 20 68 69 67 68 |....3.0 |and high|
|00005dd0| 65 72 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |er......|........|
|00005de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e00| 52 00 4f 00 4f 00 54 00 | 31 00 33 00 00 00 00 00 |R.O.O.T.|1.3.....|
|00005e10| 00 00 00 00 01 00 00 00 | 08 7d 00 00 00 00 00 00 |........|.}......|
|00005e20| 00 00 00 00 a0 77 bc 77 | 0c 00 01 01 ff ff ff ff |.....w.w|........|
|00005e30| 0e 00 01 01 ff ff ff ff | ff ff ff ff 8d 00 00 00 |........|........|
|00005e40| 0e 00 01 01 ff ff ff ff | ff ff ff ff 1d 00 00 00 |........|........|
|00005e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e60| 00 00 00 00 e0 30 81 ca | 9b ed bd 01 e0 30 81 ca |.....0..|.....0..|
|00005e70| 9b ed bd 01 54 00 41 00 | 00 00 4e 00 65 00 74 00 |....T.A.|..N.e.t.|
|00005e80| 44 00 41 00 54 00 41 00 | 00 00 74 00 73 00 20 00 |D.A.T.A.|..t.s. .|
|00005e90| 53 00 63 00 72 00 69 00 | 70 00 74 00 42 00 75 00 |S.c.r.i.|p.t.B.u.|
|00005ea0| 69 00 6c 00 64 00 65 00 | 0a 00 02 01 ff ff ff ff |i.l.d.e.|........|
|00005eb0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005ec0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ef0| 00 00 00 00 18 01 00 00 | 0a 04 00 00 00 00 00 00 |........|........|
|00005f00| 52 00 4f 00 4f 00 54 00 | 31 00 34 00 00 00 00 00 |R.O.O.T.|1.4.....|
|00005f10| 52 00 4f 00 4f 00 54 00 | 32 00 39 00 00 00 00 00 |R.O.O.T.|2.9.....|
|00005f20| 6a 00 00 00 67 00 00 00 | 00 00 00 00 00 00 00 00 |j...g...|........|
|00005f30| 0e 00 01 01 86 00 00 00 | 96 00 00 00 8f 00 00 00 |........|........|
|00005f40| 0e 00 01 01 10 00 00 00 | 2e 00 00 00 1f 00 00 00 |........|........|
|00005f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f60| 00 00 00 00 e0 30 81 ca | 9b ed bd 01 e0 30 81 ca |.....0..|.....0..|
|00005f70| 9b ed bd 01 54 00 41 00 | 00 00 bd 01 40 c1 c9 d6 |....T.A.|....@...|
|00005f80| 44 00 41 00 54 00 41 00 | 00 00 00 00 6e 02 00 00 |D.A.T.A.|....n...|
|00005f90| 44 00 41 00 54 00 41 00 | 00 00 02 01 ff ff ff ff |D.A.T.A.|........|
|00005fa0| ff ff ff ff ff ff ff ff | 75 02 00 00 76 02 00 00 |........|u...v...|
|00005fb0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005fc0| 0a 00 02 01 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005fd0| 0a 00 02 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ff0| 00 00 00 00 29 01 00 00 | bb 03 00 00 b2 00 00 00 |....)...|........|
|00006000| 05 00 00 00 41 72 72 61 | 79 05 00 00 00 41 72 72 |....Arra|y....Arr|
|00006010| 61 79 0a 00 00 00 4a 61 | 76 61 53 63 72 69 70 74 |ay....Ja|vaScript|
|00006020| 6d 00 00 00 46 75 6e 63 | 74 69 6f 6e 20 63 72 65 |m...Func|tion cre|
|00006030| 61 74 65 73 20 61 6e 20 | 61 72 72 61 79 20 6f 62 |ates an |array ob|
|00006040| 6a 65 63 74 20 77 69 74 | 68 20 61 20 6e 75 6d 62 |ject wit|h a numb|
|00006050| 65 72 20 6f 66 20 65 6c | 65 6d 65 6e 74 73 20 65 |er of el|ements e|
|00006060| 71 75 61 6c 20 74 6f 20 | 22 73 69 7a 65 22 20 61 |qual to |"size" a|
|00006070| 6e 64 20 69 6e 69 74 69 | 61 6c 69 7a 65 73 20 74 |nd initi|alizes t|
|00006080| 68 65 20 76 61 6c 75 65 | 73 20 74 6f 20 6e 75 6c |he value|s to nul|
|00006090| 6c 51 03 00 00 2f 2a 20 | 3d 3d 3d 3d 3d 3d 3d 3d |lQ.../* |========|
|000060a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000060b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000060c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000060d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0a |========|======..|
|000060e0| 46 55 4e 43 54 49 4f 4e | 3a 09 43 72 65 61 74 65 |FUNCTION|:.Create|
|000060f0| 41 72 72 61 79 20 0d 0a | 20 0d 0a 49 4e 50 55 54 |Array ..| ..INPUT|
|00006100| 3a 20 09 09 73 69 7a 65 | 20 28 69 6e 74 65 67 65 |: ..size| (intege|
|00006110| 72 29 20 3a 20 74 68 65 | 20 73 69 7a 65 20 6f 66 |r) : the| size of|
|00006120| 20 74 68 65 20 61 72 72 | 61 79 0d 0a 0d 0a 52 45 | the arr|ay....RE|
|00006130| 54 55 52 4e 3a 09 09 41 | 6e 20 61 72 72 61 79 20 |TURN:..A|n array |
|00006140| 77 69 74 68 20 6c 65 6e | 67 74 68 20 3d 3d 20 73 |with len|gth == s|
|00006150| 69 7a 65 2e 0d 0a 0d 0a | 44 45 53 43 3a 09 09 09 |ize.....|DESC:...|
|00006160| 54 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 63 72 65 |The func|tion cre|
|00006170| 61 74 65 73 20 61 6e 20 | 61 72 72 61 79 20 77 69 |ates an |array wi|
|00006180| 74 68 20 61 20 6e 75 6d | 62 65 72 20 6f 66 20 65 |th a num|ber of e|
|00006190| 6c 65 6d 65 6e 74 73 20 | 65 71 75 61 6c 20 74 6f |lements |equal to|
|000061a0| 20 22 73 69 7a 65 22 0d | 0a 09 09 09 09 61 6e 64 | "size".|.....and|
|000061b0| 20 69 6e 69 74 69 61 6c | 69 7a 65 73 20 74 68 65 | initial|izes the|
|000061c0| 20 76 61 6c 75 65 73 20 | 74 6f 20 6e 75 6c 6c 2e | values |to null.|
|000061d0| 0d 0a 0d 0a 55 53 41 47 | 45 3a 09 09 6d 79 41 72 |....USAG|E:..myAr|
|000061e0| 72 61 79 20 3d 20 6e 65 | 77 20 43 72 65 61 74 65 |ray = ne|w Create|
|000061f0| 41 72 72 61 79 28 31 32 | 29 3b 0d 0a 0d 0a 50 4c |Array(12|);....PL|
|00006200| 41 54 46 4f 52 4d 53 3a | 09 4e 65 74 73 63 61 70 |ATFORMS:|.Netscap|
|00006210| 65 20 4e 61 76 69 67 61 | 74 6f 72 20 32 2e 30 30 |e Naviga|tor 2.00|
|00006220| 20 61 6e 64 20 68 69 67 | 68 65 72 2c 0d 0a 09 09 | and hig|her,....|
|00006230| 09 20 20 09 4d 69 63 72 | 6f 73 6f 66 74 20 49 6e |.  .Micr|osoft In|
|00006240| 74 65 72 6e 65 74 20 45 | 78 70 6c 6f 72 65 72 20 |ternet E|xplorer |
|00006250| 33 2e 30 32 20 61 6e 64 | 20 68 69 67 68 65 72 2c |3.02 and| higher,|
|00006260| 0d 0a 09 09 09 20 20 09 | 4e 65 74 73 63 61 70 65 |.....  .|Netscape|
|00006270| 20 45 6e 74 65 72 70 72 | 69 73 65 20 53 65 72 76 | Enterpr|ise Serv|
|00006280| 65 72 20 33 2e 30 2c 0d | 0a 09 09 09 20 20 09 4d |er 3.0,.|....  .M|
|00006290| 69 63 72 6f 73 6f 66 74 | 20 49 49 53 2f 41 53 50 |icrosoft| IIS/ASP|
|000062a0| 20 33 2e 30 2e 0d 0a 3d | 3d 3d 3d 3d 3d 3d 3d 3d | 3.0...=|========|
|000062b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000062c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000062d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000062e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 20 2a 2f |========|===== */|
|000062f0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 43 72 65 61 74 |..functi|on Creat|
|00006300| 65 41 72 72 61 79 28 20 | 73 69 7a 65 20 29 20 7b |eArray( |size ) {|
|00006310| 0d 0a 09 2f 2f 20 56 61 | 6c 69 64 61 74 65 20 70 |...// Va|lidate p|
|00006320| 61 72 61 6d 65 74 65 72 | 20 76 61 6c 75 65 0d 0a |arameter| value..|
|00006330| 09 69 66 20 28 73 69 7a | 65 2b 22 22 20 3d 3d 20 |.if (siz|e+"" == |
|00006340| 22 75 6e 64 65 66 69 6e | 65 64 22 20 7c 7c 20 73 |"undefin|ed" || s|
|00006350| 69 7a 65 20 3d 3d 20 6e | 75 6c 6c 29 20 0d 0a 09 |ize == n|ull) ...|
|00006360| 09 72 65 74 75 72 6e 20 | 6e 75 6c 6c 3b 0d 0a 09 |.return |null;...|
|00006370| 0d 0a 09 74 68 69 73 2e | 6c 65 6e 67 74 68 20 3d |...this.|length =|
|00006380| 20 73 69 7a 65 3b 0d 0a | 09 66 6f 72 20 28 76 61 | size;..|.for (va|
|00006390| 72 20 69 20 3d 20 30 3b | 20 69 20 3c 20 73 69 7a |r i = 0;| i < siz|
|000063a0| 65 3b 20 69 2b 2b 29 20 | 7b 0d 0a 09 09 74 68 69 |e; i++) |{....thi|
|000063b0| 73 5b 69 5d 20 3d 20 6e | 75 6c 6c 3b 20 0d 0a 09 |s[i] = n|ull; ...|
|000063c0| 7d 0d 0a 09 72 65 74 75 | 72 6e 20 74 68 69 73 3b |}...retu|rn this;|
|000063d0| 0d 0a 7d 20 2f 2f 20 65 | 6e 64 20 43 72 65 61 74 |..} // e|nd Creat|
|000063e0| 65 41 72 72 61 79 0e 00 | 00 00 32 2e 30 20 61 6e |eArray..|..2.0 an|
|000063f0| 64 20 68 69 67 68 65 72 | 0e 00 00 00 33 2e 30 20 |d higher|....3.0 |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.